Explorar o código

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

Mike Hamburg %!s(int64=16) %!d(string=hai) anos
pai
achega
eb77f084b5
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      compress/digitize.pl

+ 1 - 1
compress/digitize.pl

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