remove annoying warning.
parent
60ea505139
commit
4863ce96a3
|
@ -87,7 +87,7 @@ sub write()
|
||||||
my $nbytes = syswrite( $self->{handle}, $buffer );
|
my $nbytes = syswrite( $self->{handle}, $buffer );
|
||||||
if ( !defined( $nbytes) || $nbytes < length($buffer) )
|
if ( !defined( $nbytes) || $nbytes < length($buffer) )
|
||||||
{
|
{
|
||||||
Error( "Unable to write buffer '".$buffer.", expected ".length($buffer)." bytes, sent ".$nbytes.": $!\n" );
|
Error( "Unable to write buffer '".$buffer.", expected ".length($buffer)." bytes, sent ".($nbytes?$nbytes:'undefined').": $!\n" );
|
||||||
return( undef );
|
return( undef );
|
||||||
}
|
}
|
||||||
Debug( "Wrote '$buffer' ($nbytes bytes)\n" );
|
Debug( "Wrote '$buffer' ($nbytes bytes)\n" );
|
||||||
|
|
Loading…
Reference in New Issue