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