diff options
Diffstat (limited to 'Master/tlpkg/tlperl/site/lib/LWP/Authen/Digest.pm')
-rw-r--r-- | Master/tlpkg/tlperl/site/lib/LWP/Authen/Digest.pm | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/Master/tlpkg/tlperl/site/lib/LWP/Authen/Digest.pm b/Master/tlpkg/tlperl/site/lib/LWP/Authen/Digest.pm index 2e11ac638b9..5ed025182f6 100644 --- a/Master/tlpkg/tlperl/site/lib/LWP/Authen/Digest.pm +++ b/Master/tlpkg/tlperl/site/lib/LWP/Authen/Digest.pm @@ -3,10 +3,23 @@ package LWP::Authen::Digest; use strict; use base 'LWP::Authen::Basic'; -our $VERSION = '6.37'; +our $VERSION = '6.43'; require Digest::MD5; +sub _reauth_requested { + my ($class, $auth_param, $ua, $request, $auth_header) = @_; + my $ret = defined($$auth_param{stale}) && lc($$auth_param{stale}) eq 'true'; + if ($ret) { + my $hdr = $request->header($auth_header); + $hdr =~ tr/,/;/; # "," is used to separate auth-params!! + ($hdr) = HTTP::Headers::Util::split_header_words($hdr); + my $nonce = {@$hdr}->{nonce}; + delete $$ua{authen_md5_nonce_count}{$nonce}; + } + return $ret; +} + sub auth_header { my($class, $user, $pass, $request, $ua, $h) = @_; |