diff options
-rw-r--r-- | Net/FTP.pm | 10 | ||||
-rw-r--r-- | Net/NNTP.pm | 4 |
2 files changed, 7 insertions, 7 deletions
@@ -21,7 +21,7 @@ use Net::Cmd; use Net::Config; # use AutoLoader qw(AUTOLOAD); -$VERSION = "2.46"; # $Id: //depot/libnet/Net/FTP.pm#31 $ +$VERSION = "2.47"; # $Id: //depot/libnet/Net/FTP.pm#32 $ @ISA = qw(Exporter Net::Cmd IO::Socket::INET); # Someday I will "use constant", when I am not bothered to much about @@ -696,19 +696,19 @@ sub supported { } ## -## Depreciated methods +## Deprecated methods ## sub lsl { - carp "Use of Net::FTP::lsl depreciated, use 'dir'" + carp "Use of Net::FTP::lsl deprecated, use 'dir'" if $^W; goto &dir; } sub authorise { - carp "Use of Net::FTP::authorise depreciated, use 'authorize'" + carp "Use of Net::FTP::authorise deprecated, use 'authorize'" if $^W; goto &authorize; } @@ -785,7 +785,7 @@ sub _list_cmd my $data = $ftp->_data_cmd($cmd,@_); - return undef + return unless(defined $data); require Net::FTP::A; diff --git a/Net/NNTP.pm b/Net/NNTP.pm index 4345b77..5a184e6 100644 --- a/Net/NNTP.pm +++ b/Net/NNTP.pm @@ -14,7 +14,7 @@ use Carp; use Time::Local; use Net::Config; -$VERSION = "2.18"; # $Id: //depot/libnet/Net/NNTP.pm#7 $ +$VERSION = "2.18"; # $Id: //depot/libnet/Net/NNTP.pm#8 $ @ISA = qw(Net::Cmd IO::Socket::INET); sub new @@ -965,7 +965,7 @@ second number in a range is less than or equal to the first then the range represents all messages in the group after the first message number. B<NOTE> For compatibility reasons only with earlier versions of Net::NNTP -a message spec can be passed as a list of two numbers, this is depreciated +a message spec can be passed as a list of two numbers, this is deprecated and a reference to the list should now be passed =item PATTERN |