disallow , as a delimiter

kazeburo · Sep 27, 2016 · b923892 · miyagawa · Sep 29, 2016 · kazeburo
1 parent 86b7f65
commit b923892
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Cookie/Baker.pm b/lib/Cookie/Baker.pm
@@ -87,7 +87,7 @@ sub pp_crush_cookie {
     my $cookie_string = shift;
     return {} unless $cookie_string;
     my %results;
-    my @pairs = grep m/=/, split "[;,] ?", $cookie_string;
+    my @pairs = grep m/=/, split "; ?", $cookie_string;
     for my $pair ( @pairs ) {
         # trim leading trailing whitespace
         $pair =~ s/^\s+//; $pair =~ s/\s+$//;