summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Net/FTP/I.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Net/FTP/I.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Net/FTP/I.pm18
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;
}