mirror/git
1
0
Fork 0
mirror of https://github.com/git/git.git synced 2024-09-29 17:51:22 +02:00
Code

svn import: fixed two pipe open calls.

Browse Source 
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>
This commit is contained in:
Matthias Urlichs 2005-10-10 12:45:46 +02:00
parent f0daa628a2
commit 6d281217b9
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
git-svnimport.perl
View File

@ -290,7 +290,7 @@ sub get_file($$$) {
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;
@ -437,14 +437,14 @@ sub commit {
}
if(@old) {
open F, "-│", "git-ls-files", "-z", @old or die $!;
open my $F, "-│", "git-ls-files", "-z", @old or die $!;
@old = ();
local $/ = '\0';
while(<F>) {
while(<$F>) {
chomp;
push(@old,$_);
}
close(F);
close($F);
while(@old) {
my @o2;