fix 32-bit bug in source, with a hack. oh well

This commit is contained in:
Mike Hamburg 2010-05-26 16:35:52 -07:00
parent d5d716486e
commit eb77f084b5

View file

@ -9,7 +9,7 @@
sub digitize { sub digitize {
my $number = shift; my $number = shift;
if ($number >= 256) { if ($number >= 256) {
my $nn = sprintf("%x", $number); my $nn = `printf "%x" $number`;
if ($nn =~ /^[01f]+$/i) { return "0x$nn"; } if ($nn =~ /^[01f]+$/i) { return "0x$nn"; }
} }
return $number; return $number;