Author: thatsafunnyname
Date: Thu Mar 26 04:38:14 2009
New Revision: 723
Modified:
trunk/Makefile.PL
Log:
This isn't pretty but it ensures the paths used are valid on VMS,
previously they were an invalid mix of *nix and VMS.
Modified: trunk/Makefile.PL
==============================================================================
--- trunk/Makefile.PL (original)
+++ trunk/Makefile.PL Thu Mar 26 04:38:14 2009
@@ -199,11 +199,20 @@
sub dynamic {
my $make = shift->SUPER::dynamic(@_);
+
+ my $xsl_dest_dir = '$(INST_LIB)/$(PARENT_NAME)/auto/$(FULLEXT)';
+ my $xsl_dest = '$(XSL_DEST_DIR)/$(DLBASE).$(DLEXT)';
+
+ if($^O eq 'VMS'){
+ $xsl_dest_dir =
File::Spec->catdir('blib','lib','Devel','auto','Devel','NYTProf');
+ $xsl_dest =
File::Spec->catfile('blib','lib','Devel','auto','Devel','NYTProf','PL_Devel__NYTProf'.'.exe');
+ }
+
$make .= join "\n",
'# Copy extension to where XSLoader looks to avoid fallback to
DynaLoader',
'# See t/test14.p for more details',
- 'XSL_DEST_DIR = $(INST_LIB)/$(PARENT_NAME)/auto/$(FULLEXT)',
- 'XSL_DEST = $(XSL_DEST_DIR)/$(DLBASE).$(DLEXT)',
+ "XSL_DEST_DIR = $xsl_dest_dir",
+ "XSL_DEST = $xsl_dest",
'',
'dynamic :: $(INST_DYNAMIC)',
"\t" . '$(NOECHO) $(MKPATH) $(XSL_DEST_DIR)',
--~--~---------~--~----~------------~-------~--~----~
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]
-~----------~----~----~----~------~----~------~--~---
