зеркало из https://github.com/microsoft/git.git
git-mv to work with Perl 5.6
List form of pipe open is 5.8 invention. Signed-off-by: Junio C Hamano <junkio@cox.net>
This commit is contained in:
Родитель
8d69195124
Коммит
23c99d8460
|
@ -62,7 +62,7 @@ my $safesrc;
|
|||
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>;
|
||||
|
|
Загрузка…
Ссылка в новой задаче