[PATCH 8/9] Fix a bug I introduced in the new log parser

From: Eric Wong <normalperson@yhbt.net>
Date: Nov 24, 2005, 07:56 UTC
Message-ID: <20051124075631.GI4789@mail.yhbt.net>
In-Reply-To: <20051124075504.GH4789@mail.yhbt.net>

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>

---

 git-archimport.perl |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

applies-to: db1362fe6567e349ff9dd9d70ce23c88a42a0ff2 ebe0689722f6c1440e680ec9a235b3dd571c7de0

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;
     }
 }
 
---
0.99.9.GIT