From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 15 Jan 2002 17:13:28 +0000 (+0000)
Subject: Should have been in #14285 but I have sausages for fingers.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e9eafa28453c6046c3c2cae0ae08f0a86f0efd10;p=p5sagit%2Fp5-mst-13.2.git

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

p4raw-id: //depot/perl@14286
---

diff --git a/lib/ExtUtils/MM_BeOS.pm b/lib/ExtUtils/MM_BeOS.pm
new file mode 100644
index 0000000..4ea2cf7
--- /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__
+