[lintian] 02/02: r/harness: Merge some variable declarations
This is an automated email from the git hooks/post-receive script.
nthykier pushed a commit to branch master
in repository lintian.
commit f92d26dc6b810a851f5410153b1103421232fe7c
Author: Niels Thykier <niels@thykier.net>
Date: Sun Feb 16 11:19:02 2014 +0100
r/harness: Merge some variable declarations
Signed-off-by: Niels Thykier <niels@thykier.net>
---
reporting/harness | 10 +++-------
1 file changed, 3 insertions(+), 7 deletions(-)
diff --git a/reporting/harness b/reporting/harness
index 36cff26..3769df7 100755
--- a/reporting/harness
+++ b/reporting/harness
@@ -204,9 +204,7 @@ unless ($opt{'reports-only'}) {
$LINTIAN_ARCHIVEDIR, [_trim_split($LINTIAN_DIST)],
[_trim_split($LINTIAN_AREA)], [_trim_split($LINTIAN_ARCH)]);
my @diffs = $LAB->generate_diffs(@manifests);
- my %skip = ();
- my @worklist;
- my %dirty_groups = ();
+ my (%skip, @worklist, %dirty_groups);
# Remove old/stale packages from the lab
foreach my $diff (@diffs) {
my $type = $diff->type;
@@ -215,8 +213,7 @@ unless ($opt{'reports-only'}) {
Log("Removing old or changed $type packages from the lab");
foreach my $removed (@{ $diff->removed }, @{ $diff->changed }) {
my ($pkg_name, $pkg_version, $pkg_arch) = @$removed;
- my $entry;
- my ($pkg_src, $pkg_src_version);
+ my ($entry, $pkg_src, $pkg_src_version);
my $sk = "$type:$pkg_name/$pkg_version";
$sk .= "/$pkg_arch" if $pkg_arch;
$skip{$sk} = 1; # For log-cleaning (incremental runs)
@@ -511,8 +508,7 @@ sub local_mirror_manifests {
foreach my $dist (@$dists) {
foreach my $area (@$areas) {
my $srcs = "$mirdir/dists/$dist/$area/source/Sources";
- my $srcfd;
- my $srcsub;
+ my ($srcfd, $srcsub);
# Binaries have a "per arch" file.
# - we check those first and then include the source packages that
# are referred to by these binaries.
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/lintian/lintian.git
Reply to: