pilot-link/pilot-link-0.11.0-perlmd5.patch
2006-03-29 13:43:24 +00:00

39 lines
898 B
Diff

--- pilot-link.0.9.5/src/sync-plan.PL.md5 Wed May 29 11:08:47 2002
+++ pilot-link.0.9.5/src/sync-plan.PL Wed May 29 11:09:03 2002
@@ -6,7 +6,7 @@
use IO::Socket;
use IO::Select;
use Time::Local;
-use MD5;
+use Digest::MD5;
use PDA::Pilot;
sub DatePlanToPerl {
@@ -313,7 +313,7 @@
}
}
- my($hash) = new MD5;
+ my($hash) = new Digest::MD5;
foreach (@output) {
#print "Adding |$_| to hash\n";
$hash->add($_);
@@ -490,7 +490,7 @@
my(@l) = split(/\n/,$r);
my($rec) = { raw => [@l], other => [] };
my(@E,@R,@N,@M,@S,@US);
- my($hash) = new MD5;
+ my($hash) = new Digest::MD5;
$l[0] =~ s/\s+/ /g;
$hash->add($l[0]);
my($date, $time, $length, $early, $late, $flags, $color) = split(/\s+/, shift @l);
@@ -566,7 +566,7 @@
sub HashPilotRecord {
my($record) = @_;
- my($hash) = new MD5;
+ my($hash) = new Digest::MD5;
$hash->add($record->{raw});
$hash->hexdigest;
}