1package ExtUtils::MM_BeOS; 2 3use strict; 4use warnings; 5 6=head1 NAME 7 8ExtUtils::MM_BeOS - methods to override UN*X behaviour in ExtUtils::MakeMaker 9 10=head1 SYNOPSIS 11 12 use ExtUtils::MM_BeOS; # Done internally by ExtUtils::MakeMaker if needed 13 14=head1 DESCRIPTION 15 16See L<ExtUtils::MM_Unix> for a documentation of the methods provided 17there. This package overrides the implementation of these methods, not 18the semantics. 19 20=over 4 21 22=cut 23 24use ExtUtils::MakeMaker::Config; 25use File::Spec; 26require ExtUtils::MM_Any; 27require ExtUtils::MM_Unix; 28 29our @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix ); 30our $VERSION = '7.70'; 31$VERSION =~ tr/_//d; 32 33 34=item os_flavor 35 36BeOS is BeOS. 37 38=cut 39 40sub os_flavor { 41 return('BeOS'); 42} 43 44=item init_linker 45 46libperl.a equivalent to be linked to dynamic extensions. 47 48=cut 49 50sub init_linker { 51 my($self) = shift; 52 53 $self->{PERL_ARCHIVE} ||= 54 File::Spec->catdir('$(PERL_INC)',$Config{libperl}); 55 $self->{PERL_ARCHIVEDEP} ||= ''; 56 $self->{PERL_ARCHIVE_AFTER} ||= ''; 57 $self->{EXPORT_LIST} ||= ''; 58} 59 60=back 61 62=cut 63 641; 65__END__ 66 67