Net::FTP

- Fixed bad use of ||= in cwd()

Net::POP3
- Fixed pattern for -ERR (had +ERR)

2 files changed, 4 insertions, 4 deletions

diff --git a/Net/FTP.pm b/Net/FTP.pm
index f6fd1c6..13216ec 100644
--- a/Net/FTP.pm
+++ b/Net/FTP.pm
@@ -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 ];