parse headers slower again

mojolicious · Feb 10, 2015 · f578fba · f578fba
1 parent 5e2db27
commit f578fba
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/lib/Mojo/Util.pm b/lib/Mojo/Util.pm
@@ -386,22 +386,22 @@ sub _header {
   my ($str, $cookie) = @_;
 
   my (@tree, @token);
-  while ($str =~ /\G[,;\s]*([^=;, ]+)\s*/gc) {
+  while ($str =~ s/^[,;\s]*([^=;, ]+)\s*//) {
     push @token, my $name = $1, undef;
 
     # Special "expires" value
-    if ($cookie && lc $name eq 'expires' && $str =~ /\G=\s*$EXPIRES_RE/gco) {
+    if ($cookie && lc $name eq 'expires' && $str =~ s/^=\s*$EXPIRES_RE//o) {
       $token[-1] = $1;
     }
 
     # Normal value
-    elsif ($str =~ /\G=\s*("(?:\\\\|\\"|[^"])*"|[^;, ]*)\s*/gc) {
+    elsif ($str =~ s/^=\s*("(?:\\\\|\\"|[^"])*"|[^;, ]*)\s*//) {
       $token[-1] = unquote $1;
     }
 
     # Separator
-    $str =~ /\G;\s*/gc;
-    next unless $str =~ /\G,\s*/gc;
+    $str =~ s/^;\s*//;
+    next unless $str =~ s/^,\s*//;
     push @tree, [@token];
     @token = ();
   }