This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
delete a non-fucntioning chown in stat.t: it didn't have gid arg.
authorDave Mitchell <davem@fdisolutions.com>
Sun, 17 Jul 2005 22:07:14 +0000 (22:07 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Sun, 17 Jul 2005 22:07:14 +0000 (22:07 +0000)
Spotted by Gisle Aas.

p4raw-id: //depot/perl@25162

t/op/stat.t

index b7004b7..924c5f4 100755 (executable)
@@ -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');
 ok(chmod(0700,$tmpfile),    'chmod 0700');
 ok(-r $tmpfile,     '   -r');
 ok(-w $tmpfile,     '   -w');