harness: Assign name to $2

[perl5.git] / t / harness

diff --git a/t/harness b/t/harness
index 33ccc09..6cc49f8 100644 (file)
--- a/t/harness
+++ b/t/harness
@@ -194,9 +194,10 @@ if (@ARGV) {
                     \z !x)
             {
                 my $path = $1;
+                my $name = $2;
 
                 $all_dirs{$path} = 1;
-                $serials{$path} = 1 if $2 =~ / \A 0 /x;
+                $serials{$path} = 1 if $name =~ / \A 0 /x;
             }
         }