40 lines
876 B
Text
40 lines
876 B
Text
$NetBSD: patch-ac,v 1.1 2001/10/02 06:43:39 jlam Exp $
|
|
|
|
--- SyncPlan.pm.orig Wed Mar 24 18:00:01 1999
|
|
+++ SyncPlan.pm
|
|
@@ -17,7 +17,7 @@
|
|
use IO::Socket;
|
|
use IO::Select;
|
|
use Time::Local;
|
|
-use MD5;
|
|
+use Digest::MD5;
|
|
use Carp;
|
|
use strict;
|
|
|
|
@@ -363,7 +363,7 @@
|
|
}
|
|
}
|
|
|
|
- my($hash) = new MD5;
|
|
+ my($hash) = Digest::MD5->new;
|
|
foreach (@output) {
|
|
#print "Adding |$_| to hash\n";
|
|
$hash->add($_);
|
|
@@ -553,7 +553,7 @@
|
|
my(@l) = split(/\n/,$r);
|
|
my($rec) = { raw => [@l], other => [] };
|
|
my(@E,@R,@N,@M,@S,@US);
|
|
- my($hash) = new MD5;
|
|
+ my($hash) = Digest::MD5->new;
|
|
$l[0] =~ s/\s+/ /g;
|
|
$hash->add($l[0]);
|
|
my($date, $time, $length, $early, $late, $flags, $color) = split(/\s+/, shift @l);
|
|
@@ -629,7 +629,7 @@
|
|
|
|
sub HashPilotRecord {
|
|
my($record) = @_;
|
|
- my($hash) = new MD5;
|
|
+ my($hash) = Digest::MD5->new;
|
|
$hash->add($record->{raw});
|
|
$hash->hexdigest;
|
|
}
|