File tree Expand file tree Collapse file tree 2 files changed +4
-2
lines changed Expand file tree Collapse file tree 2 files changed +4
-2
lines changed Original file line number Diff line number Diff line change @@ -50,7 +50,7 @@ sub _split_header_words
5050 push (@res , [@cur ]) if @cur ;
5151 @cur = ();
5252 }
53- elsif (s / ^\s *;// || s / ^\s +// ) {
53+ elsif (s / ^\s *;// || s / ^\s +// || s / ^= // ) {
5454 # continue
5555 }
5656 else {
Original file line number Diff line number Diff line change @@ -28,7 +28,7 @@ my @s_tests = (
2828 ' basic; realm="\"foo\\\\ bar\""' ],
2929);
3030
31- plan tests => @s_tests + 3 ;
31+ plan tests => @s_tests + 4 ;
3232
3333for (@s_tests ) {
3434 my ($arg , $expect ) = @$_ ;
@@ -44,3 +44,5 @@ note "# Extra tests\n";
4444is(join_header_words(" foo" => undef , " bar" => " baz" ), " foo; bar=baz" );
4545is(join_header_words(), " " );
4646is(join_header_words([]), " " );
47+ # ignore bare =
48+ is_deeply(split_header_words(" foo; =;bar=baz" ), [" foo" => undef , " bar" => " baz" ]);
You can’t perform that action at this time.
0 commit comments