Author: thatsafunnyname
Date: Wed Mar 11 09:52:59 2009
New Revision: 714
Modified:
trunk/NYTProf.xs
Log:
getcwd() on VMS returns VMS paths, these looks like u:[username], sticking
a slash results in u:[username]/test.t and this is not a valid VMS
filename, not inserting a slash results in only 4 out of 31 tests and 21
out of 491 sub tests failing. Getting there.
Modified: trunk/NYTProf.xs
==============================================================================
--- trunk/NYTProf.xs (original)
+++ trunk/NYTProf.xs Wed Mar 11 09:52:59 2009
@@ -1243,7 +1243,9 @@
if (strnEQ(file_name, "./", 2))
++file_name;
else
+#ifndef VMS
strcat(file_name_abs, "/");
+#endif
}
strncat(file_name_abs, file_name, file_name_len);
found->key_abs = strdup(file_name_abs);
--~--~---------~--~----~------------~-------~--~----~
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]
-~----------~----~----~----~------~----~------~--~---
