]>
Commit | Line | Data |
---|---|---|
5f5a306c JR |
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)); |