Revision: 1044
Author: [email protected]
Date: Fri Feb 5 09:56:52 2010
Log: Fix length calculation error if normalize_eval_seqn() finds a second
eval
pattern after editing a first with a sequence number with 2 or more digits.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1044
Modified:
/trunk/NYTProf.xs
=======================================
--- /trunk/NYTProf.xs Fri Feb 5 09:56:49 2010
+++ /trunk/NYTProf.xs Fri Feb 5 09:56:52 2010
@@ -3483,7 +3483,8 @@
start + len + 1 /* pointer beyond the trailing '\0' */
- close); /* pointer to the ) */
- SvCUR_set(sv, len - (close - first_digit));
+ len -= (close - first_digit);
+ SvCUR_set(sv, SvCUR(sv) - (close - first_digit));
}
if (trace_level >= 5)
--
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]
