Perl's magic "different semantics of open() based on the number of
arguments" is really annoying at times...
Signed-Off-By: Matthias Urlichs <smurf@smurf.noris.de>
my ($name, $res) = eval { $svn->file($svnpath,$rev); };
return () unless defined $name;
my ($name, $res) = eval { $svn->file($svnpath,$rev); };
return () unless defined $name;
- open my $F, '-|', "git-hash-object -w $name"
+ open my $F, '-|', "git-hash-object", "-w", $name
or die "Cannot create object: $!\n";
my $sha = <$F>;
chomp $sha;
or die "Cannot create object: $!\n";
my $sha = <$F>;
chomp $sha;
- open F, "-│", "git-ls-files", "-z", @old or die $!;
+ open my $F, "-│", "git-ls-files", "-z", @old or die $!;
@old = ();
local $/ = '\0';
@old = ();
local $/ = '\0';