Author: thatsafunnyname
Date: Fri Mar 27 08:47:45 2009
New Revision: 731
Modified:
trunk/lib/Devel/NYTProf/Util.pm
Log:
Yet Another VMS Fix, ODS-2 files are limited to 39.39 chars
Modified: trunk/lib/Devel/NYTProf/Util.pm
==============================================================================
--- trunk/lib/Devel/NYTProf/Util.pm (original)
+++ trunk/lib/Devel/NYTProf/Util.pm Fri Mar 27 08:47:45 2009
@@ -223,6 +223,12 @@
# remove any leading or trailing '-' chars
$fname =~ s{^-}{};
$fname =~ s{-$}{};
+ if($^O eq 'VMS'){
+ # ODS-2 is limited to 39.39 chars (39 filename, 39 extension)
+ # Reader.pm appends -LEVEL onto html safe filename so must
+ # subtract 1 + max length of (sub block line), so 6.
+ $fname = substr($fname,-33);
+ }
return $fname;
}
--~--~---------~--~----~------------~-------~--~----~
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]
-~----------~----~----~----~------~----~------~--~---
