This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ExtUtils::CBuilder Tru64 support
authorJarkko Hietaniemi <jhi@iki.fi>
Sat, 21 May 2005 23:20:21 +0000 (02:20 +0300)
committerAbhijit Menon-Sen <ams@wiw.org>
Sat, 21 May 2005 22:26:34 +0000 (22:26 +0000)
Message-Id: <428F9805.70108@gmail.com>

p4raw-id: //depot/perl@24537

MANIFEST
lib/ExtUtils/CBuilder/Platform/dec_osf.pm [new file with mode: 0644]

index 36093da..a374e56 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -1324,6 +1324,7 @@ lib/ExtUtils/CBuilder/Base.pm     Base class for ExtUtils::CBuilder methods
 lib/ExtUtils/CBuilder/Platform/aix.pm  CBuilder methods for AIX
 lib/ExtUtils/CBuilder/Platform/cygwin.pm       CBuilder methods for cygwin
 lib/ExtUtils/CBuilder/Platform/darwin.pm       CBuilder methods for darwin
 lib/ExtUtils/CBuilder/Platform/aix.pm  CBuilder methods for AIX
 lib/ExtUtils/CBuilder/Platform/cygwin.pm       CBuilder methods for cygwin
 lib/ExtUtils/CBuilder/Platform/darwin.pm       CBuilder methods for darwin
+lib/ExtUtils/CBuilder/Platform/dec_osf.pm      CBuilder methods for OSF
 lib/ExtUtils/CBuilder/Platform/os2.pm  CBuilder methods for OS/2
 lib/ExtUtils/CBuilder/Platform/Unix.pm CBuilder methods for Unix
 lib/ExtUtils/CBuilder/Platform/VMS.pm  CBuilder methods for VMS
 lib/ExtUtils/CBuilder/Platform/os2.pm  CBuilder methods for OS/2
 lib/ExtUtils/CBuilder/Platform/Unix.pm CBuilder methods for Unix
 lib/ExtUtils/CBuilder/Platform/VMS.pm  CBuilder methods for VMS
diff --git a/lib/ExtUtils/CBuilder/Platform/dec_osf.pm b/lib/ExtUtils/CBuilder/Platform/dec_osf.pm
new file mode 100644 (file)
index 0000000..5381e90
--- /dev/null
@@ -0,0 +1,17 @@
+package ExtUtils::CBuilder::Platform::dec_osf;
+
+use strict;
+use ExtUtils::CBuilder::Platform::Unix;
+use File::Spec;
+
+use vars qw(@ISA);
+@ISA = qw(ExtUtils::CBuilder::Platform::Unix);
+
+sub link_executable {
+  my $self = shift;
+  # $Config{ld} is 'ld' but that won't work: use the cc instead.
+  local $self->{config}{ld} = $self->{config}{cc};
+  return $self->SUPER::link_executable(@_);
+}
+
+1;