diff options
-rw-r--r-- | Net/FTP.pm | 4 | ||||
-rw-r--r-- | Net/POP3.pm | 4 |
2 files changed, 4 insertions, 4 deletions
@@ -21,7 +21,7 @@ use Net::Cmd; use Net::Config; # use AutoLoader qw(AUTOLOAD); -$VERSION = "2.47"; # $Id: //depot/libnet/Net/FTP.pm#32 $ +$VERSION = "2.48"; # $Id: //depot/libnet/Net/FTP.pm#33 $ @ISA = qw(Exporter Net::Cmd IO::Socket::INET); # Someday I will "use constant", when I am not bothered to much about @@ -398,7 +398,7 @@ sub cwd my($ftp,$dir) = @_; - $dir ||= "/"; + $dir = "/" unless defined($dir) && $dir =~ /\S/; $dir eq ".." ? $ftp->_CDUP() diff --git a/Net/POP3.pm b/Net/POP3.pm index f78e384..ea04d2a 100644 --- a/Net/POP3.pm +++ b/Net/POP3.pm @@ -13,7 +13,7 @@ use Net::Cmd; use Carp; use Net::Config; -$VERSION = "2.17"; # $Id: //depot/libnet/Net/POP3.pm#11 $ +$VERSION = "2.18"; # $Id: //depot/libnet/Net/POP3.pm#12 $ @ISA = qw(Net::Cmd IO::Socket::INET); @@ -318,7 +318,7 @@ sub response } else { - $str =~ s/^\+ERR\s+//io; + $str =~ s/^-ERR\s+//io; } ${*$cmd}{'net_cmd_resp'} = [ $str ]; |