mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 08:38:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

t/io/nargv.t: Fix obsolete usage: @foo[-1]

Browse Source 
Use $ to reference an array element
This commit is contained in:
Karl Williamson 2025-06-07 14:25:36 -06:00 committed by Karl Williamson
parent 861a720f71
commit 9ef5300f9a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
t/io/nargv.t
View File

@ -134,7 +134,7 @@ sub mkfiles {
$files[$_] ||= tempfile();
}
my @results = @files[@_];
return wantarray ? @results : @results[-1];
return wantarray ? @results : $results[-1];
}
END { unlink_all map { ($_, "$_.bak") } @files }