Re: Pyrrhic compression in Encode

Message-ID: <20020222171027.GB4181@blackrider>

p4raw-id: //depot/perl@14834

diff --git a/ext/Encode/compile b/ext/Encode/compile
index 44104ef..7a40db9 100755 (executable)
--- a/ext/Encode/compile
+++ b/ext/Encode/compile
@@ -290,9 +290,14 @@ END
    }
   close(D);
   close(H);
+
+  my $perc_saved    = $strings/($strings + $saved) * 100;
+  my $perc_subsaved = $strings/($strings + $subsave) * 100;
   printf STDERR "%d bytes in string tables\n",$strings;
-  printf STDERR "%d bytes (%.3g%%) saved spotting duplicates\n",$saved,100*$saved/$strings if $saved;
-  printf STDERR "%d bytes (%.3g%%) saved using substrings\n",$subsave,100*$subsave/$strings if $subsave;
+  printf STDERR "%d bytes (%.3g%%) saved spotting duplicates\n",
+    $saved, $perc_saved              if $saved;
+  printf STDERR "%d bytes (%.3g%%) saved using substrings\n",
+    $subsave, $perc_subsaved         if $subsave;
  }
 elsif ($doEnc)
  {