From 4ad8f25184116db26d67776ec69be399d56ee0a3 Mon Sep 17 00:00:00 2001
From: Josip Rodin <joy@debian.org>
Date: Thu, 24 Jul 2003 16:06:59 +0000
Subject: [PATCH] shortened some silly-code :)

---
 tools/list2cds | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/tools/list2cds b/tools/list2cds
index 7c6e8264..7a0c19e4 100755
--- a/tools/list2cds
+++ b/tools/list2cds
@@ -210,9 +210,8 @@ if ($complete) {
     # Try to sort them by section even if packages from
     # other sections will get in through dependencies
     # With some luck, most of them will already be here
-    my $p;
-    foreach $p (sort { ($packages{$a}{"Section"} cmp $packages{$b}{"Section"})
-                    || ($a cmp $b) }
+    foreach my $p (sort { ($packages{$a}{"Section"} cmp $packages{$b}{"Section"})
+                       || ($a cmp $b) }
              grep { not ($included{$_} or $excluded{$_}) } keys %packages) {
 	add_package ($p, 0, 0);
     }
@@ -599,8 +598,7 @@ sub add_missing {
 sub is_in {
 	my $value = shift;
 	my $array = shift;
-	my $key;
-	foreach $key (@{$array}) {
+	foreach my $key (@{$array}) {
 		return 1 if ($key eq $value);
 	}
 	return 0;		
@@ -642,8 +640,7 @@ sub check_list {
 		  next;
 		}
 	}
-	my $removed;
-	foreach $removed (@to_remove) {
+	foreach my $removed (@to_remove) {
 		msg(2, "  Removing $removed ...\n");
 		@{$ref} = grep { $_ ne $removed } @{$ref};
 	}