avoid reusing $1

mojolicious · Feb 10, 2015 · 5e2db27 · 5e2db27
1 parent 85abcdb
commit 5e2db27
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/Mojo/Util.pm b/lib/Mojo/Util.pm
@@ -387,10 +387,10 @@ sub _header {
 
   my (@tree, @token);
   while ($str =~ /\G[,;\s]*([^=;, ]+)\s*/gc) {
-    push @token, $1, undef;
+    push @token, my $name = $1, undef;
 
     # Special "expires" value
-    if ($cookie && lc $1 eq 'expires' && $str =~ /\G=\s*$EXPIRES_RE/gco) {
+    if ($cookie && lc $name eq 'expires' && $str =~ /\G=\s*$EXPIRES_RE/gco) {
       $token[-1] = $1;
     }