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