Author: gisle.aas
Date: Wed Oct 29 13:15:29 2008
New Revision: 571
Modified:
trunk/NYTProf.xs
Log:
Improve portability to older perls; gv_fetchpvs() not supported in 5.8
Modified: trunk/NYTProf.xs
==============================================================================
--- trunk/NYTProf.xs (original)
+++ trunk/NYTProf.xs Wed Oct 29 13:15:29 2008
@@ -2775,7 +2775,7 @@
file_major, file_minor, __FILE__, XS_VERSION);
if (cb) {
- input_chunk_seqn_sv = save_scalar(gv_fetchpvs(".", GV_ADD,
SVt_IV));
+ input_chunk_seqn_sv = save_scalar(gv_fetchpv(".", GV_ADD, SVt_IV));
sv_setuv(input_chunk_seqn_sv, input_chunk_seqn);
/* these tags are frequent enough that we reuse the same SV in all
calls
*/
--~--~---------~--~----~------------~-------~--~----~
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]
-~----------~----~----~----~------~----~------~--~---
