diff options
Diffstat (limited to 'lib/Net/FTP/A.pm')
-rw-r--r-- | lib/Net/FTP/A.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Net/FTP/A.pm b/lib/Net/FTP/A.pm index 6940bc2..4c99019 100644 --- a/lib/Net/FTP/A.pm +++ b/lib/Net/FTP/A.pm @@ -46,7 +46,7 @@ sub read { : undef; } else { - return undef + return unless defined $n; ${*$data}{'net_ftp_eof'} = 1; @@ -104,7 +104,7 @@ sub write { $off += $wrote; $wrote = syswrite($data, substr($tmp, $off), $len > $blksize ? $blksize : $len); - return undef + return unless defined($wrote); $len -= $wrote; } |