Change 13579 by jhi@alpha on 2001/12/10 01:26:53
Root is the lizard king.
Affected files ...
.... //depot/perl/lib/Net/t/netrc.t#4 edit
Differences ...
==== //depot/perl/lib/Net/t/netrc.t#4 (text) ====
Index: perl/lib/Net/t/netrc.t
--- perl/lib/Net/t/netrc.t.~1~ Sun Dec 9 18:30:05 2001
+++ perl/lib/Net/t/netrc.t Sun Dec 9 18:30:05 2001
@@ -58,13 +58,24 @@
$stat[2] = 077;
ok( !defined(Net::Netrc::_readrc()),
'_readrc() should not read world-writable file' );
- ok( $warn =~ /^Bad permissions/, '... and should warn about it' );
+ ok( $warn =~ /^Bad permissions:/, '... and should warn about it' );
# the owner field should still not match
$stat[2] = 0;
- ok( !defined(Net::Netrc::_readrc()),
- '_readrc() should not read file owned by someone else' );
- ok( $warn =~ /^Not owner/, '... and should warn about it' );
+
+ my $olduid = $>;
+ eval { $> = 1 }; # switch uid away from root (may not be impelemented)
+
+ SKIP: {
+ skip("don't you know what absolutely power does to you?", 2)
+ if $> == 0;
+
+ ok( !defined(Net::Netrc::_readrc()),
+ '_readrc() should not read file owned by someone else' );
+ ok( $warn =~ /^Not owner:/, '... and should warn about it' );
+ }
+
+ eval { $> = $olduid }; # switch uid back (may not be implemented)
}
# this field must now match, to avoid the last-tested warning
End of Patch.
