Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
Greenplum
Gpdb
提交
ee639d27
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,发现更多精彩内容 >>
提交
ee639d27
编写于
8月 19, 2011
作者:
B
Bruce Momjian
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
Fix copyright.pl to properly us 'tie' function.
Kris Jurka
上级
6dfcadaf
变更
2
隐藏空白更改
内联
并排
Showing
2 changed file
with
6 addition
and
7 deletion
+6
-7
src/tools/backend/flow.gif
src/tools/backend/flow.gif
+0
-0
src/tools/copyright.pl
src/tools/copyright.pl
+6
-7
未找到文件。
src/tools/backend/flow.gif
查看替换文件 @
6dfcadaf
浏览文件 @
ee639d27
489.5 KB
|
W:
|
H:
489.5 KB
|
W:
|
H:
2-up
Swipe
Onion skin
src/tools/copyright.pl
浏览文件 @
ee639d27
...
...
@@ -11,6 +11,7 @@ use strict;
use
warnings
;
use
File::
Find
;
use
Tie::
File
;
my
$pgdg
=
'
PostgreSQL Global Development Group
';
my
$cc
=
'
Copyright \(c\)
';
...
...
@@ -22,14 +23,12 @@ print "Using current year: $year\n";
find
({
wanted
=>
\
&wanted
,
no_chdir
=>
1
},
'
.
');
sub
wanted
{
my
$filename
=
$
File::Find::
name
;
return
if
!
-
f
$
File::Find::
name
||
-
l
$
File::Find::
name
;
# only regular files
return
if
!
-
f
$file
name
;
my
@lines
;
tie
@lines
,
"
Tie::File
",
$
File::Find::
name
;
open
(
my
$FILE
,
'
<
',
$filename
)
or
die
"
Cannot open
$filename
";
foreach
my
$line
(
<
$FILE
>
)
{
foreach
my
$line
(
@lines
)
{
# We only care about lines with a copyright notice.
next
unless
$line
=~
m/$cc.*$pgdg/
;
# We stop when we've done one substitution. This is both for
...
...
@@ -39,7 +38,7 @@ sub wanted {
last
if
$line
=~
s/($cc\d{4})(, $pgdg)/$1-$year$2/
;
last
if
$line
=~
s/($cc\d{4})-\d{4}(, $pgdg)/$1-$year$2/
;
}
close
(
$FILE
)
or
die
"
Cannot close
$filename
"
;
untie
@lines
;
}
print
"
Manually update doc/src/sgml/legal.sgml and src/interfaces/libpq/libpq.rc.in too
\n
";
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录