From 90a4e718ca907b3510536b9e4ea7a0b22299b0e2 Mon Sep 17 00:00:00 2001
From: Graham Barr <gbarr@pobox.com>
Date: Mon, 31 May 2010 10:03:06 -0500
Subject: fix netrc tests

---
 Net/Netrc.pm | 4 ++--
 t/netrc.t    | 1 +
 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 
-- 
cgit v1.2.3-24-ge0c7