diff options
author | Graham Barr <gbarr@pobox.com> | 2001-10-22 12:44:36 +0000 |
---|---|---|
committer | Graham Barr <gbarr@pobox.com> | 2001-10-22 12:44:36 +0000 |
commit | 97b2ad77515fc6854b8b1bf93ae0609a6397b620 (patch) | |
tree | 30e3d443885985028560346db6290dab982c5d0f | |
parent | 129ea3c668750571dc1d76840f604222b9ad43fe (diff) | |
download | perl-libnet-97b2ad77515fc6854b8b1bf93ae0609a6397b620.tar.gz |
Net::Netrc
- Update lookup() docs to describe what happens if no .netrc file is found
-rw-r--r-- | Net/Netrc.pm | 7 |
1 files 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 |