remove annoying warning.

pull/556/head
Isaac Connor 2014-10-31 14:12:36 -04:00
parent 60ea505139
commit 4863ce96a3
1 changed files with 1 additions and 1 deletions

View File

@ -87,7 +87,7 @@ sub write()
my $nbytes = syswrite( $self->{handle}, $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 );
}
Debug( "Wrote '$buffer' ($nbytes bytes)\n" );