From 57ba8f02c814673e17c15f73b3daf8c4c51e1910 Mon Sep 17 00:00:00 2001
From: Steve McIntyre <93sam@debian.org>
Date: Wed, 7 Jun 2000 00:28:28 +0000
Subject: [PATCH] Obvious bug fix in the new non-free code - fixes warnings and
 makes the non-free CD actually happen...

---
 tools/cds2src | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tools/cds2src b/tools/cds2src
index 2fad438f..ba57f83d 100755
--- a/tools/cds2src
+++ b/tools/cds2src
@@ -85,7 +85,7 @@ while (defined($_ = <SOURCES>)) {
 	next if not m/^Package: (\S+)\s*$/m;
 	$p = $1;
 	$included{$p} = 0;
-        $sources{$p}{"Package"} = $p;
+	 $sources{$p}{"Package"} = $p;
 	foreach $re (qw/Binary Version Section Directory/) {
 		(m/^$re: (.*?)\s*$/m and $sources{$p}{$re} = $1)
 		|| msg(1, "Header field '$re' missing for source '$p'\n");
@@ -172,7 +172,7 @@ if ($extranonfree and (! $nonfree))
 	my ($p, @toinclude);
 	
 	# Finally accept non-free packages
-	foreach $p (grep { $excluded{$p} eq "nonfree" } (keys %sources))
+	foreach $p (grep { $excluded{$_} eq "nonfree" } (keys %sources))
 	{
 		$excluded{$p} = 0;
 		push @toinclude, $p;