Minimalist fixes to make BMaked perl build.

This commit is contained in:
Mark Murray 1998-09-09 13:10:47 +00:00
parent 05d46b3cd6
commit 39ab139322
Notes: svn2git 2020-12-20 02:59:44 +00:00
svn path=/head/; revision=38999
6 changed files with 28 additions and 11 deletions

View File

@ -1,7 +1,7 @@
use ExtUtils::MakeMaker;
WriteMakefile(
NAME => 'POSIX',
($^O eq 'MSWin32' ? () : (LIBS => ["-lm -lposix -lcposix"])),
(($^O eq 'MSWin32' || $^O eq 'freebsd') ? () : (LIBS => ["-lm -lposix -lcposix"])),
MAN3PODS => ' ', # Pods will be built by installman.
XSPROTOARG => '-noprototypes', # XXX remove later?
VERSION_FROM => 'POSIX.pm',

View File

@ -23,6 +23,10 @@
# Andy Dougherty <doughera@lafcol.lafayette.edu>
# Date: Tue Mar 10 16:07:00 EST 1998
#
# Support for FreeBSD/ELF
# Ollivier Robert <roberto@keltia.freenix.fr>
# Date: Wed Sep 2 16:22:12 CEST 1998
#
# The two flags "-fpic -DPIC" are used to indicate a
# will-be-shared object. Configure will guess the -fpic, (and the
# -DPIC is not used by perl proper) but the full define is included to
@ -95,12 +99,20 @@ esac
case "$osvers" in
0.*|1.0*) ;;
3.0*) if [ -e /usr/lib/aout ]; then
libpth="/usr/lib/aout /usr/local/lib /usr/lib"
glibpth="/usr/lib/aout /usr/local/lib /usr/lib"
3.0*) objformat=`/usr/bin/objformat`
if [ x$objformat = xelf ]; then
libpth="/usr/lib /usr/local/lib"
glibpth="/usr/lib /usr/local/lib"
ldflags="-Wl,-E "
lddlflags="-shared "
else
if [ -e /usr/lib/aout ]; then
libpth="/usr/lib/aout /usr/local/lib /usr/lib"
glibpth="/usr/lib/aout /usr/local/lib /usr/lib"
fi
lddlflags='-Bshareable'
fi
cccdlflags='-DPIC -fpic'
lddlflags='-Bshareable'
;;
*) cccdlflags='-DPIC -fpic'

View File

@ -79,7 +79,7 @@ require Exporter;
sub _backtick_pwd {
my $cwd;
chop($cwd = `pwd`);
chop($cwd = `/bin/pwd`);
$cwd;
}

View File

@ -8,8 +8,8 @@ use strict;
use vars qw($VERSION $Is_Mac $Is_OS2 $Is_VMS $Is_Win32 $Is_Dos $Is_PERL_OBJECT
$Verbose %pm %static $Xsubpp_Version);
$VERSION = substr q$Revision: 1.12601 $, 10;
# $Id: MM_Unix.pm,v 1.126 1998/06/28 21:32:49 k Exp k $
$VERSION = substr q$Revision: 1.1.1.1 $, 10;
# $Id: MM_Unix.pm,v 1.1.1.1 1998/09/09 06:59:54 markm Exp $
Exporter::import('ExtUtils::MakeMaker',
qw( $Verbose &neatvalue));
@ -1033,7 +1033,7 @@ $(INST_DYNAMIC): $(OBJECT) $(MYEXTLIB) $(BOOTSTRAP) $(INST_ARCHAUTODIR)/.exists
$ldrun = qq{-rpath "$self->{LD_RUN_PATH}"}
if ($^O eq 'irix' && $self->{LD_RUN_PATH});
push(@m,' LD_RUN_PATH="$(LD_RUN_PATH)" $(LD) -o $@ '.$ldrun.' $(LDDLFLAGS) '.$ldfrom.
push(@m,' $(LD) -o $@ '.$ldrun.' $(LDDLFLAGS) '.$ldfrom.
' $(OTHERLDFLAGS) $(MYEXTLIB) $(PERL_ARCHIVE) $(LDLOADLIBS) $(EXPORT_LIST)');
push @m, '
$(CHMOD) $(PERM_RWX) $@

View File

@ -23,7 +23,7 @@ open OUT, ">$file" or die "Can't create $file: $!";
# extract patchlevel.h information
open PATCH_LEVEL, "<../patchlevel.h" or die "Can't open patchlevel.h: $!";
open PATCH_LEVEL, "<../patchlevel.h" or open PATCH_LEVEL, "<patchlevel.h" or die "Can't open patchlevel.h: $!";
my $patchlevel_date = (stat PATCH_LEVEL)[9];

View File

@ -21,7 +21,12 @@ $file .= '.com' if $^O eq 'VMS';
# Open input file before creating output file.
$IN = '../lib/diagnostics.pm';
open IN or die "Can't open $IN: $!\n";
$in = open IN;
if (!$in) {
$inmsg = "Can't open $IN: $!\n";
$IN = 'diagnostics.pm';
$in = open IN or die $inmsg, "Can't open $IN: $!\n";
}
# Create output file.
open OUT,">$file" or die "Can't create $file: $!";