We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent b8a00e5 commit ce4a08fCopy full SHA for ce4a08f
2 files changed
lib/HTTP/Headers/Util.pm
@@ -50,7 +50,7 @@ sub _split_header_words
50
push(@res, [@cur]) if @cur;
51
@cur = ();
52
}
53
- elsif (s/^\s*;// || s/^\s+//) {
+ elsif (s/^\s*;// || s/^\s+// || s/^=//) {
54
# continue
55
56
else {
t/headers-util.t
@@ -28,7 +28,7 @@ my @s_tests = (
28
'basic; realm="\"foo\\\\bar\""'],
29
);
30
31
-plan tests => @s_tests + 3;
+plan tests => @s_tests + 4;
32
33
for (@s_tests) {
34
my($arg, $expect) = @$_;
@@ -44,3 +44,5 @@ note "# Extra tests\n";
44
is(join_header_words("foo" => undef, "bar" => "baz"), "foo; bar=baz");
45
is(join_header_words(), "");
46
is(join_header_words([]), "");
47
+# ignore bare =
48
+is_deeply(split_header_words("foo; =;bar=baz"), ["foo" => undef, "bar" => "baz"]);
0 commit comments