Change 14834 by jhi@alpha on 2002/02/22 18:06:01
Subject: [PATCH] Re: Pyrrhic compression in Encode
From: Michael G Schwern <[EMAIL PROTECTED]>
Date: Fri, 22 Feb 2002 12:10:28 -0500
Message-ID: <20020222171027.GB4181@blackrider>
Affected files ...
.... //depot/perl/ext/Encode/compile#27 edit
Differences ...
==== //depot/perl/ext/Encode/compile#27 (xtext) ====
Index: perl/ext/Encode/compile
--- perl/ext/Encode/compile.~1~ Fri Feb 22 11:15:05 2002
+++ perl/ext/Encode/compile Fri Feb 22 11:15:05 2002
@@ -290,9 +290,14 @@
}
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)
{
End of Patch.
