• DatabaseCompat.pm

    33 34  
    12 12 sub new {
    13 13 my ($class, $keeper, %opts) = @_;
    14 14
    15 my ($crc1, $crc2) = map {abs unpack 'j',$_} grep {$_} split /(.{8})/, md5(($opts{pid_name}||$FindBin::RealScript).($opts{per_host} ? $opts{host} : ''));
    15 my ($crc1, $crc2) = unpack 'LL', md5(($opts{pid_name}||$FindBin::RealScript).($opts{per_host} ? $opts{host} : ''));
    16 16
    17 17 my $self = {
    18 18 dbh => $keeper->create_db_t_connect,