Revision: 1053
Author: [email protected]
Date: Tue Feb 9 06:52:26 2010
Log: In nytprofmerge, enable deflation on output if the input files are
deflated.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1053
Modified:
/trunk/bin/nytprofmerge
=======================================
--- /trunk/bin/nytprofmerge Mon Feb 8 07:28:18 2010
+++ /trunk/bin/nytprofmerge Tue Feb 9 06:52:26 2010
@@ -85,6 +85,7 @@
# Effectively, these are global variables. Sorry.
my $input;
my %attributes;
+my $deflating;
my %dispatcher =
(
@@ -124,6 +125,11 @@
},
START_DEFLATE => sub {
+ if (!$deflating && $out->can('start_deflate')) {
+ $out->write('z');
+ $out->start_deflate;
+ ++$deflating;
+ }
},
PID_START => sub {
--
You've received this message because you are subscribed to
the Devel::NYTProf Development User group.
Group hosted at: http://groups.google.com/group/develnytprof-dev
Project hosted at: http://perl-devel-nytprof.googlecode.com
CPAN distribution: http://search.cpan.org/dist/Devel-NYTProf
To post, email: [email protected]
To unsubscribe, email: [email protected]
