Przeglądaj źródła

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

Mike Hamburg 16 lat temu
rodzic
commit
eb77f084b5
1 zmienionych plików z 1 dodań i 1 usunięć
  1. 1 1
      compress/digitize.pl

+ 1 - 1
compress/digitize.pl

@@ -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;