Update libnet to CPAN version 3.01
[perl.git] / cpan / libnet / lib / Net / FTP / I.pm
similarity index 87%
rename from cpan/libnet/Net/FTP/I.pm
rename to cpan/libnet/lib/Net/FTP/I.pm
index 449bb99..14be581 100644 (file)
@@ -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.01";
 
+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;
   }