From 97b2ad77515fc6854b8b1bf93ae0609a6397b620 Mon Sep 17 00:00:00 2001
From: Graham Barr <gbarr@pobox.com>
Date: Mon, 22 Oct 2001 12:44:36 +0000
Subject: Net::Netrc - Update lookup() docs to describe what happens if no
 .netrc file is found

---
 Net/Netrc.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/Net/Netrc.pm b/Net/Netrc.pm
index bbb3f23..a44b6e3 100644
--- a/Net/Netrc.pm
+++ b/Net/Netrc.pm
@@ -11,7 +11,7 @@ use strict;
 use FileHandle;
 use vars qw($VERSION);
 
-$VERSION = "2.12"; # $Id: //depot/libnet/Net/Netrc.pm#11 $
+$VERSION = "2.12"; # $Id: //depot/libnet/Net/Netrc.pm#12 $
 
 my %netrc = ();
 
@@ -288,6 +288,9 @@ the first entry in the .netrc file for C<MACHINE> will be returned.
 If a matching entry cannot be found, and a default entry exists, then a
 reference to the default entry is returned.
 
+If there is no matching entry found and there is no default defined, or
+no .netrc file is found, then C<undef> is returned.
+
 =back
 
 =head1 METHODS
@@ -329,6 +332,6 @@ it under the same terms as Perl itself.
 
 =for html <hr>
 
-$Id: //depot/libnet/Net/Netrc.pm#11 $
+$Id: //depot/libnet/Net/Netrc.pm#12 $
 
 =cut
-- 
cgit v1.2.3-24-ge0c7