mirrors/postgres
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add code to test for non-shared libperl and fail gracefully.

Browse Source 
Not a big step forward, but it's something...
This commit is contained in:
Tom Lane 2000-04-17 00:49:58 +00:00
parent 3d62fbc4eb
commit 94728d1085
1 changed files with 48 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
src/pl/plperl/Makefile.PL
View File

@ -3,6 +3,31 @@ use ExtUtils::Embed;
use DynaLoader; use DynaLoader;
use Config; use Config;
#
# Can't build a shared plperl unless libperl is shared too.
# (Actually, it would be enough if code in libperl.a is compiled
# to be position-independent, but that is hard to check for and
# seems pretty unlikely anyway.)
#
if ($Config{'useshrplib'} ne 'true') {
open(OUT, ">Makefile") or die "Can't write Makefile: $!\n";
print OUT <<'EndOfMakefile';
# Dummy Makefile for use when we can't build plperl
all install:
@echo "Cannot build plperl because libperl is not a shared library; skipping it."
clean distclean:
rm -f Makefile
.DEFAULT dep depend:
EndOfMakefile
close(OUT);
exit(0);
}
# #
# get the location of the Opcode module # get the location of the Opcode module
# #
@ -25,9 +50,12 @@ my $opcode = '';
} }
my $perllib = "-L$Config{archlibexp}/CORE -lperl";
my $dynalib = "$Config{archlibexp}/auto/DynaLoader/DynaLoader.a";
WriteMakefile( 'NAME' => 'plperl', WriteMakefile( 'NAME' => 'plperl',
dynamic_lib => { 'OTHERLDFLAGS' => "$opcode -L\$(LIBPQDIR) -lpq @{[ldopts()]}" } , dynamic_lib => { 'OTHERLDFLAGS' => "$opcode $perllib $dynalib" } ,
INC => '-I$(LIBPQDIR) -I$(SRCDIR)/include -I$(SRCDIR)/backend', INC => '-I$(SRCDIR)/include -I$(SRCDIR)/backend',
XS => { 'SPI.xs' => 'SPI.c' }, XS => { 'SPI.xs' => 'SPI.c' },
OBJECT => 'plperl.o eloglvl.o SPI.o', OBJECT => 'plperl.o eloglvl.o SPI.o',
); );
@ -41,6 +69,24 @@ include $(SRCDIR)/Makefile.global
} }
sub MY::cflags {
package MY; # so that "SUPER" works right
my $inherited = shift->SUPER::cflags(@_);
#
# Hack for building on HPUX (probably should have a general mechanism
# for system-specific hints, but for now ...)
# The default compiler and flags on this platform is cc -Aa, which
# will reject 'long long' declarations that appear in Postgres headers.
# Need to select -Ae instead.
#
if ($Config::Config{'osname'} eq 'hpux') {
$inherited =~ s/-Aa/-Ae/;
}
$inherited;
}
sub MY::install { sub MY::install {
q[ q[
@ -49,5 +95,3 @@ install :: all
]; ];
} }