diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/LWP/Authen/Digest.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/LWP/Authen/Digest.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/Master/tlpkg/tlperl/lib/LWP/Authen/Digest.pm b/Master/tlpkg/tlperl/lib/LWP/Authen/Digest.pm index b9365ae1c12..6fe542e29b3 100644 --- a/Master/tlpkg/tlperl/lib/LWP/Authen/Digest.pm +++ b/Master/tlpkg/tlperl/lib/LWP/Authen/Digest.pm @@ -58,7 +58,14 @@ sub auth_header { my @pairs; for (@order) { next unless defined $resp{$_}; - push(@pairs, "$_=" . qq("$resp{$_}")); + + # RFC2617 sais that qop-value and nc-value should be unquoted. + if ( $_ eq 'qop' || $_ eq 'nc' ) { + push(@pairs, "$_=" . $resp{$_}); + } + else { + push(@pairs, "$_=" . qq("$resp{$_}")); + } } my $auth_value = "Digest " . join(", ", @pairs); |