fix 32-bit bug in source, with a hack. oh well
This commit is contained in:
parent
d5d716486e
commit
eb77f084b5
1 changed files with 1 additions and 1 deletions
|
@ -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;
|
||||||
|
|
Loading…
Reference in a new issue