Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
openeuler
perlporter
提交
ae1e354b
P
perlporter
项目概览
openeuler
/
perlporter
通知
0
Star
0
Fork
0
代码
文件
提交
分支
Tags
贡献者
分支图
Diff
Issue
0
列表
看板
标记
里程碑
合并请求
0
Wiki
0
Wiki
分析
仓库
DevOps
项目成员
Pages
P
perlporter
项目概览
项目概览
详情
发布
仓库
仓库
文件
提交
分支
标签
贡献者
分支图
比较
Issue
0
Issue
0
列表
看板
标记
里程碑
合并请求
0
合并请求
0
Pages
分析
分析
仓库分析
DevOps
Wiki
0
Wiki
成员
成员
收起侧边栏
关闭侧边栏
动态
分支图
创建新Issue
提交
Issue看板
体验新版 GitCode,发现更多精彩内容 >>
提交
ae1e354b
编写于
6月 10, 2020
作者:
M
myeuler
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
add --nodeps to install & fix get_module_info ret info
上级
83cd3f67
变更
1
显示空白变更内容
内联
并排
Showing
1 changed file
with
19 addition
and
7 deletion
+19
-7
perlporter
perlporter
+19
-7
未找到文件。
perlporter
浏览文件 @
ae1e354b
...
...
@@ -355,7 +355,13 @@ sub do_pkg_install($) {
my
$bdir
=
catfile
(
$_
[
0
],
$path
);
if
(
-
e
$bdir
)
{
$bdir
=
catfile
(
$bdir
,
"
*
");
system
("
rpm
",
"
-ivh
",
$bdir
);
#
# Try to install without deps, that can help system to avoid
# circle build
#
if
(
system
("
rpm
",
"
-ivh
",
"
--nodeps
",
$bdir
)
!=
0
)
{
print
"
install
$bdir
package failed
"
}
}
}
}
...
...
@@ -569,14 +575,14 @@ sub get_module_info($) {
$type
=
$
1
;
}
else
{
warn
"
Failed to parse '
$file
', skipping...
\n
";
next
;
return
(
1
,
$name
,
$version
,
$type
,
$file
)
;
}
}
else
{
warn
"
Failed to parse '
$
file
' or find a module by that name, skipping...
\n
";
next
;
warn
"
Failed to parse '
$
pkg
' or find a module by that name, skipping...
\n
";
return
(
1
,
$name
,
$version
,
$type
,
$file
)
;
}
return
(
$name
,
$version
,
$type
,
$file
);
return
(
0
,
$name
,
$version
,
$type
,
$file
);
}
sub
parse_archive_file
($$)
{
...
...
@@ -1027,8 +1033,14 @@ for my $pkg (@args) {
# keep things happy if we get "Foo-Bar" instead of "Foo::Bar"
$pkg
=~
s/-/::/g
;
my
(
$name
,
$version
,
$type
,
$file
);
(
$name
,
$version
,
$type
,
$file
)
=
get_module_info
(
$pkg
);
my
(
$ret
,
$name
,
$version
,
$type
,
$file
);
(
$ret
,
$name
,
$version
,
$type
,
$file
)
=
get_module_info
(
$pkg
);
#
# ugly but easy&works
#
if
(
$ret
==
1
)
{
next
;
}
my
$module
=
$name
;
$module
=~
s/-/::/g
;
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录