1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
$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;
}
|
