From: Junio C Hamano <junkio@twinsun.com>
Date: Tue, 6 Dec 2005 02:14:34 +0000 (-0800)
Subject: git-mv to work with Perl 5.6
X-Git-Tag: v0.99.9m^2~62
X-Git-Url: https://git.octo.it/?a=commitdiff_plain;h=23c99d84601316c1e51ebc1f0b9bec5cddd011fb;p=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>
---

diff --git a/git-mv.perl b/git-mv.perl
index b6c0b488..83dc7e45 100755
--- a/git-mv.perl
+++ b/git-mv.perl
@@ -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>;