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; |