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

khwilliamson · khwilliamson · commit 9ef5300f9a0c · 2025-07-09T07:59:33.000-06:00
Use $ to reference an array element
diff --git a/t/io/nargv.t b/t/io/nargv.t
@@ -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 }

Original file line number	Diff line number	Diff line change
`@@ -134,7 +134,7 @@ sub mkfiles {`
`134`	`134`	`$files[$_] \|\|= tempfile();`
`135`	`135`	`}`
`136`	`136`	`my @results = @files[@_];`
`137`		`- return wantarray ? @results : @results[-1];`
	`137`	`+ return wantarray ? @results : $results[-1];`
`138`	`138`	`}`
`139`	`139`
`140`	`140`	`END { unlink_all map { ($_, "$_.bak") } @files }`