Revision: 1052
Author: [email protected]
Date: Tue Feb 9 06:52:22 2010
Log: Add Devel::NYTProf::FileHandle::start_deflate.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1052
Modified:
/trunk/FileHandle.xs
=======================================
--- /trunk/FileHandle.xs Tue Feb 9 06:52:17 2010
+++ /trunk/FileHandle.xs Tue Feb 9 06:52:22 2010
@@ -621,7 +621,7 @@
return fclose(raw_file) == 0 ? 0 : errno;
}
-MODULE = Devel::NYTProf::FileHandle PACKAGE =
Devel::NYTProf::FileHandle
+MODULE = Devel::NYTProf::FileHandle PACKAGE =
Devel::NYTProf::FileHandle PREFIX = NYTP_
PROTOTYPES: DISABLE
@@ -706,3 +706,12 @@
CODE:
p = SvPV(value, len);
output_str(handle, p, SvUTF8(value) ? -(I32)len : (I32) len);
+
+#ifdef HAS_ZLIB
+
+void
+NYTP_start_deflate(handle, compression_level = 6)
+NYTP_file handle
+int compression_level
+
+#endif
--
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]
