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:
Junio C Hamano 2005-12-05 18:14:34 -08:00 committed by Junio C Hamano
parent 8d69195124
commit 23c99d8460

View file

@ -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>;