Code

git-mv to work with Perl 5.6
authorJunio C Hamano <junkio@twinsun.com>
Tue, 6 Dec 2005 02:14:34 +0000 (18:14 -0800)
committerJunio C Hamano <junkio@cox.net>
Tue, 6 Dec 2005 03:12:27 +0000 (19:12 -0800)
List form of pipe open is 5.8 invention.

Signed-off-by: Junio C Hamano <junkio@cox.net>
git-mv.perl

index b6c0b4881845bf6a8d9681817fc540a2003b889e..83dc7e45cf205c7575512182bf29516914773209 100755 (executable)
@@ -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>;