perl-libwww-Digest-MD5.patch

   1 diff -ur libwww-perl-5.53.orig/lib/LWP/Authen/Digest.pm libwww-perl-5.53/lib/LWP/Authen/Digest.pm
   2 --- libwww-perl-5.53.orig/lib/LWP/Authen/Digest.pm      Tue Jan 23 03:41:01 2001
   3 +++ libwww-perl-5.53/lib/LWP/Authen/Digest.pm   Tue May  1 00:36:59 2001
   4 @@ -1,7 +1,7 @@
   5  package LWP::Authen::Digest;
   6  use strict;
   7
   8 -require MD5;
   9 +require Digest::MD5;
  10
  11  sub authenticate
  12  {
  13 @@ -18,7 +18,7 @@
  14      my $uri = $request->url->path_query;
  15      $uri = "/" unless length $uri;
  16
  17 -    my $md5 = new MD5;
  18 +    my $md5 = new Digest::MD5;
  19
  20      my(@digest);
  21      $md5->add(join(":", $user, $auth_param->{realm}, $pass));