From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 21 May 2005 23:20:21 +0000 (+0300)
Subject: ExtUtils::CBuilder Tru64 support
X-Git-Tag: perl-5.9.3~2001
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/0e66cca035ceb727a3ab9256f4ef9b63b31b7c37

ExtUtils::CBuilder Tru64 support
Message-Id: <428F9805.70108@gmail.com>

p4raw-id: //depot/perl@24537
---

diff --git a/MANIFEST b/MANIFEST
index 36093da..a374e56 100644
--- 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/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
diff --git a/lib/ExtUtils/CBuilder/Platform/dec_osf.pm b/lib/ExtUtils/CBuilder/Platform/dec_osf.pm
new file mode 100644
index 0000000..5381e90
--- /dev/null
+++ b/lib/ExtUtils/CBuilder/Platform/dec_osf.pm
@@ -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;