From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 10 Dec 2001 04:21:59 +0000 (+0000)
Subject: Just skip the readability test if running as root.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8c81eb11585093a7c1d46400c4760e25b5816865;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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