Преглед на файлове

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

Mike Hamburg преди 16 години
родител
ревизия
eb77f084b5
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  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;