Should have been in #14285 but I have sausages for fingers.

p4raw-id: //depot/perl@14286

1 files changed, 47 insertions, 0 deletions

diff --git a/lib/ExtUtils/MM_BeOS.pm b/lib/ExtUtils/MM_BeOS.pm
new file mode 100644
index 0000000000..4ea2cf756e
--- /dev/null
+++ b/lib/ExtUtils/MM_BeOS.pm
@@ -0,0 +1,47 @@
+package ExtUtils::MM_BeOS;
+
+our $VERSION = '1.00';
+
+=head1 NAME
+
+ExtUtils::MM_BeOS - methods to override UN*X behaviour in ExtUtils::MakeMaker
+
+=head1 SYNOPSIS
+
+ use ExtUtils::MM_BeOS;	# Done internally by ExtUtils::MakeMaker if needed
+
+=head1 DESCRIPTION
+
+See ExtUtils::MM_Unix for a documentation of the methods provided
+there. This package overrides the implementation of these methods, not
+the semantics.
+
+=over 4
+
+=cut 
+
+use Config;
+use File::Spec;
+require Exporter;
+
+require ExtUtils::MakeMaker;
+ExtUtils::MakeMaker->import(qw( $Verbose &neatvalue));
+
+unshift @MM::ISA, 'ExtUtils::MM_BeOS';
+
+=item perl_archive
+
+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.
+
+=cut
+
+sub perl_archive
+  {
+  return '$(PERL_INC)' . "/$Config{libperl}":
+  }
+
+1;
+__END__
+