Revision: 1024
Author: [email protected]
Date: Thu Jan 21 03:59:41 2010
Log: strtol() with a base of 0 is equivalent to the replaced code.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1024
Modified:
/trunk/NYTProf.xs
=======================================
--- /trunk/NYTProf.xs Thu Jan 21 03:59:37 2010
+++ /trunk/NYTProf.xs Thu Jan 21 03:59:41 2010
@@ -1553,8 +1553,7 @@
bool found = FALSE;
do {
if (strEQ(option, opt_p->option_name)) {
- opt_p->option_value = (strnEQ(value,"0x",2))
- ? strtol(value, NULL, 16) : atoi(value);
+ opt_p->option_value = strtol(value, NULL, 0);
found = TRUE;
break;
}
--
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]
