| Subject: | quote a realm value |
Hi
I'm sending a patch to quote a realm value, because it must be
"quoted-string" by RFC2617 1.2. This bug was found in Atom Interop
Experiments http://www.intertwingly.net/wiki/pie/November2007Interop .
Regards,
| Subject: | HTTP.pm.patch |
--- HTTP.pm-orig Mon Jan 1 04:48:34 2007
+++ HTTP.pm Thu Nov 29 01:09:34 2007
@@ -247,7 +247,10 @@
my ( $c, $opts ) = @_;
if ( my $realm = $opts->{realm} ) {
- return 'realm=' . String::Escape::qprintable($realm);
+# return 'realm=' . String::Escape::qprintable($realm);
+ $realm = String::Escape::qprintable($realm);
+ $realm =~ s/\"/\\"/g;
+ return 'realm=' . qq{"$realm"};
} else {
return;
}