Change 25383: Reverted 25364 on authors request

[H.Merijn Brand]

Change 25383 by [EMAIL PROTECTED] on 2005/09/11 13:50:53

        Reverted 25364 on authors request

Affected files ...

... //depot/perl/lib/ExtUtils/CBuilder/Base.pm#5 edit
... //depot/perl/lib/ExtUtils/CBuilder/Platform/VMS.pm#4 edit

Differences ...

==== //depot/perl/lib/ExtUtils/CBuilder/Base.pm#5 (text) ====
Index: perl/lib/ExtUtils/CBuilder/Base.pm
--- perl/lib/ExtUtils/CBuilder/Base.pm#4~25364~ Wed Sep  7 23:07:53 2005
+++ perl/lib/ExtUtils/CBuilder/Base.pm  Sun Sep 11 06:50:53 2005
@@ -89,13 +89,6 @@
   my @extra_compiler_flags = 
$self->split_like_shell($args{extra_compiler_flags});
   my @cccdlflags = $self->split_like_shell($cf->{cccdlflags});
   my @ccflags = $self->split_like_shell($cf->{ccflags});
-
-  #VMS can only have one include list, remove the one from config.
-  if ((@include_dirs != 0) && ($^O eq 'VMS')) {
-    for (@ccflags) {
-      s/\/Include[^\/]*//;
-    }
-  }
   my @optimize = $self->split_like_shell($cf->{optimize});
   my @flags = (@include_dirs, @cccdlflags, @extra_compiler_flags,
               $self->arg_nolink,
@@ -193,15 +186,6 @@
   $objects = [$objects] unless ref $objects;
   my $out = $args{$type} || $self->$type($objects->[0]);
   
-  # Need to create with the same name as Dyanloader will load with.
-  if ($^O eq 'VMS') {
-    my ($dev,$dir,$file) = File::Spec->splitpath($out);
-    if (defined &DynaLoader::mod2fname) {
-      $file = DynaLoader::mod2fname([$file]);
-      $out = File::Spec->catpath($dev,$dir,$file);
-    }
-  }
-
   my @temp_files;
   @temp_files =
     $self->prelink(%args,
@@ -211,14 +195,6 @@
   my @output = $args{lddl} ? $self->arg_share_object_file($out) : 
$self->arg_exec_file($out);
   my @shrp = $self->split_like_shell($cf->{shrpenv});
   my @ld = $self->split_like_shell($cf->{ld});
-
-  # vms has two option files, the external symbol, and to pull in PerlShr
-  if ($^O eq 'VMS') {
-    $objects->[0] .= ',';
-    $objects->[1] = 'sys$disk:[]' . @temp_files[0] . '/opt,';
-    $objects->[2] = $self->perl_inc() . 'PerlShr.Opt/opt';
-  }
-
   $self->do_system(@shrp, @ld, @output, @$objects, @linker_flags)
     or die "error building $out from @$objects";
   

==== //depot/perl/lib/ExtUtils/CBuilder/Platform/VMS.pm#4 (text) ====
Index: perl/lib/ExtUtils/CBuilder/Platform/VMS.pm
--- perl/lib/ExtUtils/CBuilder/Platform/VMS.pm#3~25364~ Wed Sep  7 23:07:53 2005
+++ perl/lib/ExtUtils/CBuilder/Platform/VMS.pm  Sun Sep 11 06:50:53 2005
@@ -7,7 +7,7 @@
 $VERSION = '0.12';
 @ISA = qw(ExtUtils::CBuilder::Base);
 
-sub need_prelink { 1 }
+sub need_prelink { 0 }
 
 sub arg_include_dirs {
   my $self = shift;
End of Patch.