[perl-devel-nytprof commit] r110 - branches/tim.bunce

[codesite...@google.com]

Author: tim.bunce
Date: Mon Jun 9 11:48:22 2008
New Revision: 110

Modified:
branches/tim.bunce/NYTProf.xs

Log:
Fix file= option thanks to Steve Peters.

Modified: branches/tim.bunce/NYTProf.xs
==============================================================================
--- branches/tim.bunce/NYTProf.xs (original)
+++ branches/tim.bunce/NYTProf.xs Mon Jun 9 11:48:22 2008
@@ -610,9 +610,8 @@
return;

if (!firstrun) {
- if (forkok)
- lock_file();
if (forkok) {
+ lock_file();
if (last_pid != getpid()) { /* handle forks */
if (trace_level >= 1)
warn("New pid %d (was %d)\n", getpid(), last_pid);
@@ -682,7 +681,7 @@
*/
void
set_option(const char* option) {
- if(0 == strncmp(option, "file=", 4)) {
+ if(0 == strncmp(option, "file=", 5)) {
strncpy(PROF_output_file, &option[5], MAXPATHLEN);
if (trace_level) warn("# Using %s for output.\n", PROF_output_file);
}