Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
Greenplum
Gpdb
提交
94728d10
G
Gpdb
项目概览
Greenplum
/
Gpdb
通知
7
Star
1
Fork
0
代码
文件
提交
分支
Tags
贡献者
分支图
Diff
Issue
0
列表
看板
标记
里程碑
合并请求
0
DevOps
流水线
流水线任务
计划
Wiki
0
Wiki
分析
仓库
DevOps
项目成员
Pages
G
Gpdb
项目概览
项目概览
详情
发布
仓库
仓库
文件
提交
分支
标签
贡献者
分支图
比较
Issue
0
Issue
0
列表
看板
标记
里程碑
合并请求
0
合并请求
0
Pages
DevOps
DevOps
流水线
流水线任务
计划
分析
分析
仓库分析
DevOps
Wiki
0
Wiki
成员
成员
收起侧边栏
关闭侧边栏
动态
分支图
创建新Issue
流水线任务
提交
Issue看板
体验新版 GitCode,发现更多精彩内容 >>
提交
94728d10
编写于
4月 17, 2000
作者:
T
Tom Lane
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
Add code to test for non-shared libperl and fail gracefully.
Not a big step forward, but it's something...
上级
3d62fbc4
变更
1
隐藏空白更改
内联
并排
Showing
1 changed file
with
48 addition
and
4 deletion
+48
-4
src/pl/plperl/Makefile.PL
src/pl/plperl/Makefile.PL
+48
-4
未找到文件。
src/pl/plperl/Makefile.PL
浏览文件 @
94728d10
...
...
@@ -3,6 +3,31 @@ use ExtUtils::Embed;
use
DynaLoader
;
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
#
...
...
@@ -25,9 +50,12 @@ my $opcode = '';
}
my
$perllib
=
"
-L
$Config
{archlibexp}/CORE -lperl
";
my
$dynalib
=
"
$Config
{archlibexp}/auto/DynaLoader/DynaLoader.a
";
WriteMakefile
(
'
NAME
'
=>
'
plperl
',
dynamic_lib
=>
{
'
OTHERLDFLAGS
'
=>
"
$opcode
-L
\$
(LIBPQDIR) -lpq
@{
[
ldopts
()]
}
"
}
,
INC
=>
'
-I$(
LIBPQDIR) -I$(
SRCDIR)/include -I$(SRCDIR)/backend
',
dynamic_lib
=>
{
'
OTHERLDFLAGS
'
=>
"
$opcode
$perllib
$dynalib
"
}
,
INC
=>
'
-I$(SRCDIR)/include -I$(SRCDIR)/backend
',
XS
=>
{
'
SPI.xs
'
=>
'
SPI.c
'
},
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 {
q[
...
...
@@ -49,5 +95,3 @@ install :: all
]
;
}
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录