Commit | Line | Data |
---|---|---|
920dae64 AT |
1 | package ExtUtils::MM_BeOS; |
2 | ||
3 | =head1 NAME | |
4 | ||
5 | ExtUtils::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 | ||
13 | See ExtUtils::MM_Unix for a documentation of the methods provided | |
14 | there. This package overrides the implementation of these methods, not | |
15 | the semantics. | |
16 | ||
17 | =over 4 | |
18 | ||
19 | =cut | |
20 | ||
21 | use ExtUtils::MakeMaker::Config; | |
22 | use File::Spec; | |
23 | require ExtUtils::MM_Any; | |
24 | require ExtUtils::MM_Unix; | |
25 | ||
26 | use vars qw(@ISA $VERSION); | |
27 | @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix ); | |
28 | $VERSION = '1.05'; | |
29 | ||
30 | ||
31 | =item os_flavor | |
32 | ||
33 | BeOS is BeOS. | |
34 | ||
35 | =cut | |
36 | ||
37 | sub os_flavor { | |
38 | return('BeOS'); | |
39 | } | |
40 | ||
41 | =item init_linker | |
42 | ||
43 | libperl.a equivalent to be linked to dynamic extensions. | |
44 | ||
45 | =cut | |
46 | ||
47 | sub 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 | ||
58 | 1; | |
59 | __END__ | |
60 |