diff options
author | Graham Barr <gbarr@pobox.com> | 2004-11-06 22:16:13 +0000 |
---|---|---|
committer | Graham Barr <gbarr@pobox.com> | 2009-02-24 10:40:46 -0600 |
commit | b2ce2337b0b3cb940fea08526fd484314066c370 (patch) | |
tree | 3704c6d7f496bccabacb21e5e44bbd277ef4726d | |
parent | f46f64a8572d52c32a106d34299321b2c4fe7253 (diff) | |
download | perl-libnet-b2ce2337b0b3cb940fea08526fd484314066c370.tar.gz |
More restrictive matching of response lines
-rw-r--r-- | Net/FTP.pm | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -22,7 +22,7 @@ use Net::Config; use Fcntl qw(O_WRONLY O_RDONLY O_APPEND O_CREAT O_TRUNC); # use AutoLoader qw(AUTOLOAD); -$VERSION = "2.75"; +$VERSION = "2.76"; @ISA = qw(Exporter Net::Cmd IO::Socket::INET); # Someday I will "use constant", when I am not bothered to much about @@ -1118,7 +1118,7 @@ sub response sub parse_response { return ($1, $2 eq "-") - if $_[1] =~ s/^(\d\d\d)(.?)//o; + if $_[1] =~ s/^(\d\d\d)([- ]?)//o; my $ftp = shift; |