diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Net/FTP/I.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Net/FTP/I.pm | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/Master/tlpkg/tlperl/lib/Net/FTP/I.pm b/Master/tlpkg/tlperl/lib/Net/FTP/I.pm index 449bb99eab6..c388d8fe8ac 100644 --- a/Master/tlpkg/tlperl/lib/Net/FTP/I.pm +++ b/Master/tlpkg/tlperl/lib/Net/FTP/I.pm @@ -4,14 +4,18 @@ package Net::FTP::I; -use vars qw(@ISA $buf $VERSION); -use Carp; +use 5.008001; + +use strict; +use warnings; -require Net::FTP::dataconn; +use Carp; +use Net::FTP::dataconn; -@ISA = qw(Net::FTP::dataconn); -$VERSION = "1.12"; +our @ISA = qw(Net::FTP::dataconn); +our $VERSION = "3.05"; +our $buf; sub read { my $data = shift; @@ -30,7 +34,7 @@ sub read { $blksize = $size if $size > $blksize; unless ($n = sysread($data, ${*$data}, $blksize, length ${*$data})) { - return undef unless defined $n; + return unless defined $n; ${*$data}{'net_ftp_eof'} = 1; } } @@ -69,7 +73,7 @@ sub write { or croak "Timeout"; my $n = syswrite($data, $buf, $sent > $blksize ? $blksize : $sent, $off); - return undef unless defined($n); + return unless defined($n); $sent -= $n; $off += $n; } |