| Subject: | Debug output on parse failure |
If parse_bytes fails, a bunch of debug info lands on STDERR:
$ perl -MNumber::Bytes::Human=parse_bytes -E 'parse_bytes("xxx")'
Could not parse human readable byte value 'xxx' at -e line 1.
$VAR1 = 'B';
$VAR2 = 1024;
$VAR3 = 'T';
$VAR4 = 1024;
$VAR5 = 'ZiB';
$VAR6 = 1024;
$VAR7 = 'YB';
$VAR8 = 1000;
$VAR9 = 'KiB';
$VAR10 = 1024;
...
Looks like some debug code got left in by mistake:
if( !defined $mult ) {
carp "Could not parse human readable byte value '$human'";
use Data::Dumper;
print STDERR Dumper( %suffix_block );
return undef;
}