Improve split regex

jadeallenx · Jan 18, 2012 · 39f9762 · 39f9762
1 parent 95fbd9e
commit 39f9762
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Authen/HTTP/Signature/Parser.pm b/lib/Authen/HTTP/Signature/Parser.pm
@@ -141,7 +141,7 @@ sub parse {
     # Positive lookbehind and positive lookahead in split
     # http://www.effectiveperlprogramming.com/blog/1411
 
-    my ( $key_id, $algo, $hdrs, $ext ) = split /(?<="),(?=[ahe])/, $params;
+    my ( $key_id, $algo, $hdrs, $ext ) = split /(?<="),(?=[ahe].+=)/, $params;
 
     $key_id =~ s/^keyId="(.*)"$/$1/;
     $algo =~ s/^algorithm="(.*)"$/$1/;