Revision 34

Date:
2010/06/09 15:53:34
Author:
ahitrov@rambler.ru
Revision Log:
Алгоритм выбора ключа
Files:

Legend:

 
Added
 
Removed
 
Modified

  • koi8/core/lib/PidFile/DatabaseCompat.pm

     
    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,