This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Typo in t/op/stat.t
[perl5.git] / t / op / stat.t
index 70ab5a3..b7004b7 100755 (executable)
@@ -462,7 +462,7 @@ ok(unlink($f), 'unlink tmp file');
     -T _;
     my $s2 = -s _;
     is($s1, $s2, q(-T _ doesn't break the statbuffer));
-    unlink $file;
+    unlink $tmpfile;
 }
 
 END {