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