fix netrc tests

2 files changed, 3 insertions, 2 deletions

diff --git a/Net/Netrc.pm b/Net/Netrc.pm
index c29be79..3f04fee 100644
--- a/Net/Netrc.pm
+++ b/Net/Netrc.pm
@@ -9,7 +9,7 @@ package Net::Netrc;
 use Carp;
 use strict;
 use FileHandle;
-use vars qw($VERSION);
+use vars qw($VERSION $TESTING);
 
 $VERSION = "2.13";
 
@@ -37,7 +37,7 @@ sub _readrc {
       $file = $home . "/_netrc";
     }
     else {
-      return;
+      return unless $TESTING;
     }
   }
 
diff --git a/t/netrc.t b/t/netrc.t
index cb5c35d..2a00956 100644
--- a/t/netrc.t
+++ b/t/netrc.t
@@ -44,6 +44,7 @@ require $libnet_t;
 eval { require Net::Netrc; };
 ok( !$@, 'should be able to require() Net::Netrc safely' );
 ok( exists $INC{'Net/Netrc.pm'}, 'should be able to use Net::Netrc' );
+$Net::Netrc::TESTING=$Net::Netrc::TESTING=1;
 
 SKIP: {
         skip('incompatible stat() handling for OS', 4), next SKIP