Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
OpenHarmony
Third Party Openssl
提交
04b7805a
T
Third Party Openssl
项目概览
OpenHarmony
/
Third Party Openssl
接近 2 年 前同步成功
通知
12
Star
18
Fork
1
代码
文件
提交
分支
Tags
贡献者
分支图
Diff
Issue
0
列表
看板
标记
里程碑
合并请求
0
Wiki
0
Wiki
分析
仓库
DevOps
项目成员
Pages
T
Third Party Openssl
项目概览
项目概览
详情
发布
仓库
仓库
文件
提交
分支
标签
贡献者
分支图
比较
Issue
0
Issue
0
列表
看板
标记
里程碑
合并请求
0
合并请求
0
Pages
分析
分析
仓库分析
DevOps
Wiki
0
Wiki
成员
成员
收起侧边栏
关闭侧边栏
动态
分支图
创建新Issue
提交
Issue看板
提交
04b7805a
编写于
5月 25, 2016
作者:
R
Richard Levitte
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
perl glob: make sure to put quotes around the pattern, in case of spaces
RT#4486 Reviewed-by:
N
Matt Caswell
<
matt@openssl.org
>
上级
cb663908
变更
3
隐藏空白更改
内联
并排
Showing
3 changed file
with
5 addition
and
5 deletion
+5
-5
test/recipes/80-test_ssl_new.t
test/recipes/80-test_ssl_new.t
+1
-1
test/run_tests.pl
test/run_tests.pl
+2
-2
util/process_docs.pl
util/process_docs.pl
+2
-2
未找到文件。
test/recipes/80-test_ssl_new.t
浏览文件 @
04b7805a
...
@@ -20,7 +20,7 @@ setup("test_ssl_new");
...
@@ -20,7 +20,7 @@ setup("test_ssl_new");
$ENV
{
TEST_CERTS_DIR
}
=
srctop_dir
("
test
",
"
certs
");
$ENV
{
TEST_CERTS_DIR
}
=
srctop_dir
("
test
",
"
certs
");
my
@conf_srcs
=
glob
(
srctop_file
("
test
",
"
ssl-tests
",
"
*.conf.in
")
);
my
@conf_srcs
=
glob
(
'
"
'
.
srctop_file
("
test
",
"
ssl-tests
",
"
*.conf.in
")
.
'
"
'
);
map
{
s/;.*//
}
@conf_srcs
if
$^O
eq
"
VMS
";
map
{
s/;.*//
}
@conf_srcs
if
$^O
eq
"
VMS
";
my
@conf_files
=
map
{
basename
(
$_
)
}
@conf_srcs
;
my
@conf_files
=
map
{
basename
(
$_
)
}
@conf_srcs
;
map
{
s/\.in//
}
@conf_files
;
map
{
s/\.in//
}
@conf_files
;
...
...
test/run_tests.pl
浏览文件 @
04b7805a
...
@@ -42,13 +42,13 @@ my $list_mode = scalar(grep /^list$/, @tests) != 0;
...
@@ -42,13 +42,13 @@ my $list_mode = scalar(grep /^list$/, @tests) != 0;
if
(
grep
/^(alltests|list)$/
,
@tests
)
{
if
(
grep
/^(alltests|list)$/
,
@tests
)
{
@tests
=
grep
{
@tests
=
grep
{
basename
(
$_
)
=~
/^[0-9][0-9]-[^\.]*\.t$/
basename
(
$_
)
=~
/^[0-9][0-9]-[^\.]*\.t$/
}
glob
(
catfile
(
$recipesdir
,"
*.t
")
);
}
glob
(
'
"
'
.
catfile
(
$recipesdir
,"
*.t
")
.
'
"
'
);
}
else
{
}
else
{
my
@t
=
();
my
@t
=
();
foreach
(
@tests
)
{
foreach
(
@tests
)
{
push
@t
,
grep
{
push
@t
,
grep
{
basename
(
$_
)
=~
/^[0-9][0-9]-[^\.]*\.t$/
basename
(
$_
)
=~
/^[0-9][0-9]-[^\.]*\.t$/
}
glob
(
catfile
(
$recipesdir
,"
*-
$_
.t
")
);
}
glob
(
'
"
'
.
catfile
(
$recipesdir
,"
*-
$_
.t
")
.
'
"
'
);
}
}
@tests
=
@t
;
@tests
=
@t
;
}
}
...
...
util/process_docs.pl
浏览文件 @
04b7805a
...
@@ -72,9 +72,9 @@ my $symlink_exists = eval { symlink("",""); 1 };
...
@@ -72,9 +72,9 @@ my $symlink_exists = eval { symlink("",""); 1 };
foreach
my
$subdir
(
keys
%
{
$options
{
subdir
}})
{
foreach
my
$subdir
(
keys
%
{
$options
{
subdir
}})
{
my
$section
=
$options
{
subdir
}
->
{
$subdir
};
my
$section
=
$options
{
subdir
}
->
{
$subdir
};
my
$podsourcedir
=
catfile
(
$options
{
sourcedir
},
$subdir
);
my
$podsourcedir
=
catfile
(
$options
{
sourcedir
},
$subdir
);
my
$podglob
=
catfile
(
$podsourcedir
,
"
*.pod
")
;
my
$podglob
=
'
"
'
.
catfile
(
$podsourcedir
,
"
*.pod
")
.
'
"
'
;
foreach
my
$podfile
(
glob
"
$podglob
"
)
{
foreach
my
$podfile
(
glob
$podglob
)
{
my
$podname
=
basename
(
$podfile
,
"
.pod
");
my
$podname
=
basename
(
$podfile
,
"
.pod
");
my
$podpath
=
catfile
(
$podfile
);
my
$podpath
=
catfile
(
$podfile
);
my
%podinfo
=
(
section
=>
$section
);
my
%podinfo
=
(
section
=>
$section
);
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录