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