提交 23c99d84 编写于 作者: J Junio C Hamano 提交者: Junio C Hamano

git-mv to work with Perl 5.6

List form of pipe open is 5.8 invention.
Signed-off-by: NJunio C Hamano <junkio@cox.net>
上级 8d691951
......@@ -62,7 +62,7 @@ ()
my (%overwritten, %srcForDst);
$/ = "\0";
open(F,"-|","git-ls-files","-z")
open(F, 'git-ls-files -z |')
or die "Failed to open pipe from git-ls-files: " . $!;
@allfiles = map { chomp; $_; } <F>;
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册