This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Typo in t/op/stat.t
authorGisle Aas <gisle@aas.no>
Thu, 14 Jul 2005 23:20:18 +0000 (16:20 -0700)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Fri, 15 Jul 2005 06:33:21 +0000 (06:33 +0000)
Message-ID: <lr64vcfv4t.fsf@caliper.activestate.com>

p4raw-id: //depot/perl@25144

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 {