Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
Greenplum
Gpdb
提交
2a73ee59
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,发现更多精彩内容 >>
提交
2a73ee59
编写于
5月 13, 2010
作者:
A
Andrew Dunstan
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
Fix MSVC builds for recent plperl changes. Go back to version 8.2, which is
where we started supporting MSVC builds. Security: CVE-2010-1169
上级
20db9591
变更
1
隐藏空白更改
内联
并排
Showing
1 changed file
with
19 addition
and
4 deletion
+19
-4
src/tools/msvc/Mkvcbuild.pm
src/tools/msvc/Mkvcbuild.pm
+19
-4
未找到文件。
src/tools/msvc/Mkvcbuild.pm
浏览文件 @
2a73ee59
...
...
@@ -3,7 +3,7 @@ package Mkvcbuild;
#
# Package that generates build files for msvc build
#
# $PostgreSQL: pgsql/src/tools/msvc/Mkvcbuild.pm,v 1.5
6 2010/05/13 15:56:22 mha
Exp $
# $PostgreSQL: pgsql/src/tools/msvc/Mkvcbuild.pm,v 1.5
7 2010/05/13 21:33:00 adunstan
Exp $
#
use
Carp
;
use
Win32
;
...
...
@@ -118,8 +118,7 @@ sub mkvcbuild
}
}
if
(
Solution::
IsNewer
('
src\pl\plperl\perlchunks.h
','
src\pl\plperl\plc_perlboot.pl
')
||
Solution::
IsNewer
('
src\pl\plperl\perlchunks.h
','
src\pl\plperl\plc_safe_bad.pl
')
||
Solution::
IsNewer
('
src\pl\plperl\perlchunks.h
','
src\pl\plperl\plc_safe_ok.pl
'))
||
Solution::
IsNewer
('
src\pl\plperl\perlchunks.h
','
src\pl\plperl\plc_trusted.pl
'))
{
print
'
Building src\pl\plperl\perlchunks.h ...
'
.
"
\n
";
my
$basedir
=
getcwd
;
...
...
@@ -128,7 +127,7 @@ sub mkvcbuild
.
'
/bin/perl
'
.
'
text2macro.pl
'
.
'
--strip="^(\#.*|\s*)$$"
'
.
'
plc_perlboot.pl plc_
safe_bad.pl plc_safe_ok
.pl
'
.
'
plc_perlboot.pl plc_
trusted
.pl
'
.
'
>perlchunks.h
');
chdir
$basedir
;
if
((
!
(
-
f
'
src\pl\plperl\perlchunks.h
'))
||
-
z
'
src\pl\plperl\perlchunks.h
')
...
...
@@ -137,6 +136,22 @@ sub mkvcbuild
die
'
Failed to create perlchunks.h
'
.
"
\n
";
}
}
if
(
Solution::
IsNewer
('
src\pl\plperl\plperl_opmask.h
','
src\pl\plperl\plperl_opmask.pl
'))
{
print
'
Building src\pl\plperl\plperl_opmask.h ...
'
.
"
\n
";
my
$basedir
=
getcwd
;
chdir
'
src\pl\plperl
';
system
(
$solution
->
{
options
}
->
{
perl
}
.
'
/bin/perl
'
.
'
plperl_opmask.pl
'
.
'
plperl_opmask.h
');
chdir
$basedir
;
if
((
!
(
-
f
'
src\pl\plperl\plperl_opmask.h
'))
||
-
z
'
src\pl\plperl\plperl_opmask.h
')
{
unlink
('
src\pl\plperl\plperl_opmask.h
');
# if zero size
die
'
Failed to create plperl_opmask.h
'
.
"
\n
";
}
}
$plperl
->
AddReference
(
$postgres
);
my
@perl_libs
=
grep
{
/perl\d+.lib$/
}
glob
(
$solution
->
{
options
}
->
{
perl
}
.
'
\lib\CORE\perl*.lib
');
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录