Revision: 1204
Author: tim.bunce
Date: Wed Apr 28 10:02:41 2010
Log: Write compression details comment on one line at end of file.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1204
Modified:
/trunk/FileHandle.xs
=======================================
--- /trunk/FileHandle.xs Tue Apr 27 02:12:34 2010
+++ /trunk/FileHandle.xs Wed Apr 28 10:02:41 2010
@@ -603,9 +603,7 @@
const double ratio = file->zs.total_in / (double)
file->zs.total_out;
flush_output(file, Z_FINISH);
fprintf(raw_file, "#\n"
- "# Total uncompressed bytes %lu\n"
- "# Total compressed bytes %lu\n"
- "# Compression ratio 1:%2f, data shrunk by %.2f%%\n",
+ "# Compressed %lu bytes to %lu, ratio %f:1, data shrunk
by %f%%\n",
file->zs.total_in, file->zs.total_out, ratio,
100 * (1 - 1 / ratio));
}
--
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]
