--- 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;
 }