Revision: 1033
Author: [email protected]
Date: Thu Jan 21 06:04:16 2010
Log: strlen(src) is already known, so no need to re-compute it.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1033
Modified:
/trunk/NYTProf.xs
=======================================
--- /trunk/NYTProf.xs Thu Jan 21 05:56:32 2010
+++ /trunk/NYTProf.xs Thu Jan 21 06:04:16 2010
@@ -3316,7 +3316,7 @@
output_str(out, src, (I32)len); /* includes newline */
if (trace_level >= 5) {
logwarn("fid %d src line %d: %s%s", e->id, line, src,
- (*src && src[strlen(src)-1]=='\n') ? "" : "\n");
+ (len && src[len-1]=='\n') ? "" : "\n");
}
++t_lines;
}
--
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]
