Hi John,
After my last email I reworked the patch so that all the modifications
are in Platform/VMS.pm. Could you confirm that it still works for you
and I haven't broken it?
Thanks,
-Ken
Index: lib/ExtUtils/CBuilder/Platform/VMS.pm
===================================================================
RCS file:
/Users/ken/src/CVS-repository/modules/ExtUtils-CBuilder/lib/ExtUtils/
CBuilder/Platform/VMS.pm,v
retrieving revision 1.7
diff -u -r1.7 VMS.pm
--- VMS.pm 2005/05/20 00:50:04 1.7
+++ VMS.pm 2005/09/08 12:17:04
@@ -7,11 +7,40 @@
$VERSION = '0.12';
@ISA = qw(ExtUtils::CBuilder::Base);
-sub need_prelink { 0 }
+sub need_prelink { 1 }
sub arg_include_dirs {
- my $self = shift;
- return '/include=(' . join(',', @_) . ')';
+ my ($self, @dirs) = @_;
+
+ # VMS can only have one include list, remove the one from config.
+ if ($self->{config}{ccflags} =~ s{/include=\(([^\)]*)\)} {}i) {
+ unshift @dirs, $1;
+ }
+ return unless @dirs;
+
+ return ('/include=(' . join(',', @dirs) . ')');
+}
+
+sub _do_link {
+ my ($self, $type, %args) = @_;
+
+ my $objects = delete $args{objects};
+ $objects = [$objects] unless ref $objects;
+
+ # VMS has two option files, the external symbol, and to pull in
PerlShr
+ $objects->[-1] .= ',';
+ push @$objects, 'sys$disk:[]' . @temp_files[0] . '/opt,';
+ push @$objects, $self->perl_inc() . 'PerlShr.Opt/opt';
+
+ # Need to create with the same name as DynaLoader will load with.
+ if (defined &DynaLoader::mod2fname) {
+ my $out = $args{$type} || $self->$type($objects->[0]);
+ my ($dev,$dir,$file) = File::Spec->splitpath($out);
+ $file = DynaLoader::mod2fname([$file]);
+ $args{$type} = File::Spec->catpath($dev,$dir,$file);
+ }
+
+ return $self->SUPER::_do_link($type, %args, objects => $objects);
}
sub arg_nolink { return; }
===================================================================
On Sep 7, 2005, at 6:59 PM, John E. Malmberg wrote:
This patch is needed for the lib/ExtUtils/ParseXS.t/basic.t test to
pass on VMS.
In lib/ExtUtils/CBuilder/Platform/VMS.pm, VMS needs to have a pre-link
file generated.
In lib/ExtUtils/CBuilder/Base.pm:
VMS can only have one /include qualifier on the CC command, and the
last one wins, so if one is present in @ccflags, remove it.
VMS needs to have the executable named the same way that dynaloader
will look for it.
VMS needs to have two option files specified in the link, one to
indicate the exported symbols, and one to locate the PERLSHR image.