[perl5.git] / lib / ExtUtils / CBuilder / Platform / dec_osf.pm

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;
Commit	Line	Data
0e66cca0 JH	1	package ExtUtils::CBuilder::Platform::dec_osf;
	2
	3	use strict;
	4	use ExtUtils::CBuilder::Platform::Unix;
	5	use File::Spec;
	6
	7	use vars qw(@ISA);
	8	@ISA = qw(ExtUtils::CBuilder::Platform::Unix);
	9
	10	sub link_executable {
	11	my $self = shift;
	12	# $Config{ld} is 'ld' but that won't work: use the cc instead.
	13	local $self->{config}{ld} = $self->{config}{cc};
	14	return $self->SUPER::link_executable(@_);
	15	}
	16
	17	1;