summaryrefslogtreecommitdiff
path: root/git-archimport.perl
diff options
context:
space:
mode:
authorEric Wong <normalperson@yhbt.net>2005-11-24 07:56:31 (GMT)
committerMartin Langhoff <martin@catalyst.net.nz>2005-12-11 01:41:40 (GMT)
commit6e33101abd82f38393b8f2a137601add845722f7 (patch)
tree531db2259ce9dbb156ac0a33e8817a6e620f6487 /git-archimport.perl
parent3e525e673849393035a2639e17ff74e616a618b9 (diff)
downloadgit-6e33101abd82f38393b8f2a137601add845722f7.zip
git-6e33101abd82f38393b8f2a137601add845722f7.tar.gz
git-6e33101abd82f38393b8f2a137601add845722f7.tar.bz2
archimport: Fix a bug I introduced in the new log parser
This fixes the case (that worked originally in Martin's version) where the only new/modified files are Arch control files. Signed-off-by: Eric Wong <normalperson@yhbt.net> Signed-off-by: Martin Langhoff <martin@catalyst.net.nz>
Diffstat (limited to 'git-archimport.perl')
-rwxr-xr-xgit-archimport.perl4
1 files changed, 2 insertions, 2 deletions
diff --git a/git-archimport.perl b/git-archimport.perl
index 1cf1261..0080850 100755
--- a/git-archimport.perl
+++ b/git-archimport.perl
@@ -790,7 +790,7 @@ sub parselog {
# skip Arch control files, unescape pika-escaped files
foreach my $k (keys %want_headers) {
next unless (defined $ps->{$k});
- my @tmp;
+ my @tmp = ();
foreach my $t (@{$ps->{$k}}) {
next unless length ($t);
next if $t =~ m!\{arch\}/!;
@@ -804,7 +804,7 @@ sub parselog {
}
push @tmp, $t;
}
- $ps->{$k} = \@tmp if scalar @tmp;
+ $ps->{$k} = \@tmp;
}
}