Revision: 1048
Author: [email protected]
Date: Mon Feb 8 06:49:47 2010
Log: When merging, strip out the comment about "Compressed ... with zlib",
as it's
not true for the file we write.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1048
Modified:
/trunk/bin/nytprofmerge
=======================================
--- /trunk/bin/nytprofmerge Mon Feb 8 06:49:42 2010
+++ /trunk/bin/nytprofmerge Mon Feb 8 06:49:47 2010
@@ -101,7 +101,11 @@
},
COMMENT => sub {
my (undef, $text) = @_;
- $out->write("#$text");
+ # This isn't true unless we enable compression ourselves, and if we
+ # do that, the low level code will write out a correct comment
+ # automatically.
+ return if $text =~ /\A Compressed at level \d with zlib [0-9.]+\n\z/;
+ $out->write("#$text")
},
ATTRIBUTE => sub {
my (undef, $key, $value) = @_;
--
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]
