Just skip the readability test if running as root.

p4raw-id: //depot/perl@13589

diff --git a/lib/Net/t/netrc.t b/lib/Net/t/netrc.t
index edde65a..885b515 100644 (file)
--- a/lib/Net/t/netrc.t
+++ b/lib/Net/t/netrc.t
@@ -63,19 +63,13 @@ SKIP: {
        # the owner field should still not match
        $stat[2] = 0;
 
-       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)
+        if ($<) { 
+          ok( !defined(Net::Netrc::_readrc()), 
+              '_readrc() should not read file owned by someone else' ); 
+          ok( $warn =~ /^Not owner:/, '... and should warn about it' ); 
+        } else { 
+          ok(1, "Skip - testing as root") for 1..2; 
+        } 
 }
 
 # this field must now match, to avoid the last-tested warning