Re: [perl #36622] y/// at end of file

[p5sagit/p5-mst-13.2.git] / t / op / stat.t

diff --git a/t/op/stat.t b/t/op/stat.t
index 70ab5a3..924c5f4 100755 (executable)
--- a/t/op/stat.t
+++ b/t/op/stat.t
@@ -168,11 +168,6 @@ SKIP: {
 
 
 
-
-# in ms windows, $tmpfile inherits owner uid from directory
-# not sure about os/2, but chown is harmless anyway
-eval { chown $>,$tmpfile; 1 } or print "# $@" ;
-
 ok(chmod(0700,$tmpfile),    'chmod 0700');
 ok(-r $tmpfile,     '   -r');
 ok(-w $tmpfile,     '   -w');
@@ -462,7 +457,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 {