diff options
author | Graham Barr <gbarr@pobox.com> | 1998-06-17 01:35:06 +0000 |
---|---|---|
committer | Graham Barr <gbarr@pobox.com> | 1998-06-17 01:35:06 +0000 |
commit | 0606f44bb1fb19229ed4bd99b4c8d9256ba0aee7 (patch) | |
tree | e29815596ba4527473516768c1ea37a4a20af9c3 | |
parent | bb53596a0522168f81bfc3ca5dd548a046d94f31 (diff) | |
download | perl-libnet-0606f44bb1fb19229ed4bd99b4c8d9256ba0aee7.tar.gz |
Net::FTP
- Fix "Use of uninitialized" warning, patch from Lars Thegler <lth@dannet.dk>
-rw-r--r-- | Net/FTP.pm | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -21,7 +21,7 @@ use Net::Cmd; use Net::Config; # use AutoLoader qw(AUTOLOAD); -$VERSION = "2.40"; # $Id: //depot/libnet/Net/FTP.pm#25 $ +$VERSION = "2.41"; # $Id: //depot/libnet/Net/FTP.pm#26 $ @ISA = qw(Exporter Net::Cmd IO::Socket::INET); # Someday I will "use constant", when I am not bothered to much about @@ -901,7 +901,7 @@ sub pasv_wait my($ftp, $non_pasv) = @_; my($file,$rin,$rout); - vec($rin,fileno($ftp),1) = 1; + vec($rin='',fileno($ftp),1) = 1; select($rout=$rin, undef, undef, undef); $ftp->response(); |