summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/site/lib/LWP/Authen/Digest.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/site/lib/LWP/Authen/Digest.pm')
-rw-r--r--Master/tlpkg/tlperl/site/lib/LWP/Authen/Digest.pm15
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) = @_;