Browse Source

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>
maint
Junio C Hamano 19 years ago committed by Junio C Hamano
parent
commit
23c99d8460
  1. 2
      git-mv.perl

2
git-mv.perl

@ -62,7 +62,7 @@ my $safesrc; @@ -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>;

Loading…
Cancel
Save