Edward Avis <[EMAIL PROTECTED]> writes:

> root@voxel23 ~/libwww-perl-5.62 # perl -Ilib -MLWP::Authen::Digest -e1
> Can't locate MD5.pm in @INC (@INC contains: lib /homes/epa98/lib/perl5
> /homes/epa98/lib/perl5/5.6.0/i586-linux /homes/epa98/lib/perl5/5.6.0
> /homes/epa98/lib/perl5/5.6.0/i386-linux /homes/epa98/lib/perl5/site_perl
> /homes/epa98/lib/perl5/site_perl/5.6.0/i586-linux
> /homes/epa98/lib/perl5/site_perl/5.6.0
> /homes/epa98/lib/perl5/site_perl/5.6.0/i386-linux /vol/linux/redhat/csg
> /usr/lib/perl5/5.6.1/i586-linux /usr/lib/perl5/5.6.1
> /usr/lib/perl5/site_perl/5.6.1/i586-linux /usr/lib/perl5/site_perl/5.6.1
> /usr/lib/perl5/site_perl .) at lib/LWP/Authen/Digest.pm line 4.
> Compilation failed in require.
> BEGIN failed--compilation aborted.
> 
> Sure enough there is no MD5.pm installed in
> /usr/lib/perl5/site_perl/5.6.1/, apart from Digest/MD5.pm.  The
> Digest-MD5-2.16 tarball seems to not contain the older MD5 module, only
> the Digest::MD5 version.  I suppose you will have to track down its
> author and complain :-).

I'll do that some day :-)

> Or maybe change LWP::Authen::Digest to use Digest::MD5 instead of MD5.

I just checked in the following patch:

Index: lib/LWP/Authen/Digest.pm
===================================================================
RCS file: /cvsroot/libwww-perl/lwp5/lib/LWP/Authen/Digest.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -p -u -r1.4 -r1.5
--- lib/LWP/Authen/Digest.pm    2001/05/02 04:37:42     1.4
+++ lib/LWP/Authen/Digest.pm    2001/11/27 16:37:46     1.5
@@ -1,7 +1,7 @@
 package LWP::Authen::Digest;
 use strict;
 
-require MD5;
+require Digest::MD5;
 
 sub authenticate
 {
@@ -18,7 +18,7 @@ sub authenticate
     my $uri = $request->url->path_query;
     $uri = "/" unless length $uri;
 
-    my $md5 = new MD5;
+    my $md5 = Digest::MD5->new;
 
     my(@digest);
     $md5->add(join(":", $user, $auth_param->{realm}, $pass));

Thanks!

So, then, why did jigsaw-te fail?  Is it because you don't have the
Compress::Zlib module installed?

What does it print when you run it manually:

   cd libwww-perl-5.62
   perl -Ilib t/live/jigsaw-te.t

Regards,
Gisle

Reply via email to