diff --git a/git-archimport.perl b/git-archimport.perl
index 1cf126181ba008ab11d9fb23afccb8623cb00b48..00808500165068247826895c063aebce8e9901f7 100755 (executable)
--- a/git-archimport.perl
+++ b/git-archimport.perl
# 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\}/!;
}
push @tmp, $t;
}
- $ps->{$k} = \@tmp if scalar @tmp;
+ $ps->{$k} = \@tmp;
}
}