diff options
author | Karl Williamson <khw@cpan.org> | 2022-12-12 21:26:23 -0700 |
---|---|---|
committer | Yves Orton <demerphq@gmail.com> | 2022-12-18 18:56:09 +0100 |
commit | 8bb94d74fa4c2d935e37956ea7d2c837d7c91d42 (patch) | |
tree | 28b6d391301ecbc73c530e8138221f962f055b5c /t | |
parent | 8eb5958fef7a2431f951b5ffb77ad7703fcfb34c (diff) | |
download | perl-8bb94d74fa4c2d935e37956ea7d2c837d7c91d42.tar.gz |
harness: Assign name to $2
It's clearer, and a future commit will destroy $2 before its final use
Diffstat (limited to 't')
-rw-r--r-- | t/harness | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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; } } |