Re: [PATCH] libwww-perl5.00 MD5

Doug MacEachern (dougm@osf.org)
Thu, 30 May 1996 10:14:49 -0400


I'm not too familiar with this new module.  Is this MD5 with in a new
namespace or another module all together?  Is Crypt::MD5 fully compatible
with the existing MD5?  If so, I have a few comments below.  If not, you
certainly need to patch more.  

Regards,

-Doug

At 01:45 AM 5/30/96 -0700, Larry Schwimmer wrote:
>	libwww uses the old name for the MD5 module.
>	From the CHANGES file from MD5 1.6:
>
>*** 96/04/29 Version 1.6
>
>Changed modules name to Crypt::MD5
>
>	Patch follows.
>
>			yours,
>				Larry Schwimmer
>				schwim@cyclone.stanford.edu
>				Distributed Computing Operations
>
>--- lib/LWP/UserAgent.pm.orig	Sun May 19 04:09:04 1996
>+++ lib/LWP/UserAgent.pm	Thu May 30 01:43:14 1996
>@@ -340,7 +340,7 @@
> 		}
> 	    } elsif ($scheme =~ /^Digest$/i) {
> 		# http://hopf.math.nwu.edu/digestauth/draft.rfc
>-		require MD5;
>+		use Crypt::MD5;

Can we say 'require Crypt::MD5' here?  I had this originally so MD5 would
only be loaded if it was needed, which would be never for many people.

> 		my $md5 = new MD5;

Shouldn't that be 'new Crypt::MD5'?

> 		my($uid, $pwd) = $self->get_basic_credentials($realm,
> 							      $request->url);
>--- Makefile.PL.orig	Sun May 26 04:09:01 1996
>+++ Makefile.PL	Thu May 30 01:43:48 1996
>@@ -46,9 +46,9 @@
>     print " ok\n";
> }
> 
>-print "Checking for MD5 .......";
>+print "Checking for Crypt::MD5 .......";
> eval {
>-    require MD5;
>+    use Crypt::MD5;
> };
> if ($@) {
>     print " failed\n";
>
>