>C:\>perl -MNet::Telnet -w -e "$obj = Net::Telnet->new; $obj->open(Host => '127.0.0.1');"
Argument "" isn't numeric in numeric gt (>) at C:/Perl/site/lib/Net/Telnet.pm line 2569.
####
sub _optimal_blksize {
my ($blksize) = @_;
return $blksize
if defined $blksize and $blksize > 0 and $blksize <= 1_048_576;
8192;
} # end sub _optimal_blksize
##
##
sub _optimal_blksize {
my ($blksize) = @_;
$blksize ||= 0;
return $blksize
if defined $blksize and $blksize > 0 and $blksize <= 1_048_576;
8192;
} # end sub _optimal_blksize
##
##
2568d2567
< $blksize ||= 0;