From: Tim Bunce <Tim.Bunce@pobox.com>
Date: Sun, 30 Sep 2012 08:18:34 +0000 (+0900)
Subject: add external gz mechanism as experiment (~3 pct)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3aac80610c9c684336623567ac23cd44bb59941a;p=p5sagit%2FDevel-Size.git

add external gz mechanism as experiment (~3 pct)
---

diff --git a/lib/Devel/SizeMe.pm b/lib/Devel/SizeMe.pm
index 2acbf44..abc6742 100644
--- a/lib/Devel/SizeMe.pm
+++ b/lib/Devel/SizeMe.pm
@@ -2,7 +2,8 @@ package Devel::SizeMe;
 
 require Devel::Memory;
 
-$ENV{SIZEME} = "|sizeme_store.pl -d --text --db sizeme.db";
+my $gz = (0) ? "gzip -c | gzip -dc |" : ""; # currently saves ~3%
+$ENV{SIZEME} = "| $gz sizeme_store.pl --db sizeme.db";
 
 # It's handy to say "perl -d:SizeMe" but has side effects
 # currently we simple disable the debugger (as best we can)