Re: MakeMaker doesn't pasthru DEFINE command-line args to subdirs on Win32

[p5sagit/p5-mst-13.2.git] / lib / ExtUtils / MM_BeOS.pm

diff --git a/lib/ExtUtils/MM_BeOS.pm b/lib/ExtUtils/MM_BeOS.pm
index 4ea2cf7..e0b3390 100644 (file)
--- a/lib/ExtUtils/MM_BeOS.pm
+++ b/lib/ExtUtils/MM_BeOS.pm
@@ -1,7 +1,5 @@
 package ExtUtils::MM_BeOS;
 
-our $VERSION = '1.00';
-
 =head1 NAME
 
 ExtUtils::MM_BeOS - methods to override UN*X behaviour in ExtUtils::MakeMaker
@@ -22,25 +20,40 @@ the semantics.
 
 use Config;
 use File::Spec;
-require Exporter;
+require ExtUtils::MM_Any;
+require ExtUtils::MM_Unix;
+
+use vars qw(@ISA $VERSION);
+@ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix );
+$VERSION = 1.04;
+
+
+=item os_flavor (o)
 
-require ExtUtils::MakeMaker;
-ExtUtils::MakeMaker->import(qw( $Verbose &neatvalue));
+BeOS is BeOS.
 
-unshift @MM::ISA, 'ExtUtils::MM_BeOS';
+=cut
+
+sub os_flavor {
+    return('BeOS');
+}
 
-=item perl_archive
+=item init_linker
 
-This is internal method that returns path to libperl.a equivalent
-to be linked to dynamic extensions. UNIX does not have one, but at
-least BeOS has one.
+libperl.a equivalent to be linked to dynamic extensions.
 
 =cut
 
-sub perl_archive
-  {
-  return '$(PERL_INC)' . "/$Config{libperl}":
-  }
+sub init_linker {
+    my($self) = shift;
+
+    $self->{PERL_ARCHIVE} ||= 
+      File::Spec->catdir('$(PERL_INC)',$Config{libperl});
+    $self->{PERL_ARCHIVE_AFTER} ||= '';
+    $self->{EXPORT_LIST}  ||= '';
+}
+
+=back
 
 1;
 __END__