git-mv to work with Perl 5.6

List form of pipe open is 5.8 invention. Signed-off-by: Junio C Hamano <[email protected]>
maxsu · Dec 6, 2005 · 23c99d8 · 23c99d8
1 parent 8d69195
commit 23c99d8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/git-mv.perl b/git-mv.perl
@@ -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>;