From 0df4d3b5797f3d87d082b2debb7e1f4118d6e274 Mon Sep 17 00:00:00 2001
From: Petter Reinholdtsen <pere@debian.org>
Date: Sun, 11 Jul 2004 15:35:36 +0000
Subject: [PATCH] Typo.

---
 tools/generate_di_list | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/tools/generate_di_list b/tools/generate_di_list
index 7e2518fd..c0f65071 100755
--- a/tools/generate_di_list
+++ b/tools/generate_di_list
@@ -23,16 +23,16 @@ die "Missing \$MIRROR variable" unless $ENV{MIRROR};
 die "Missing \$DI_CODENAME variable" unless $ENV{DI_CODENAME};
 
 foreach my $arch (@ARCHES) {
-	(my $cpparch = $arch) =~ s/-/_/g;
-	print OUT "#ifdef ARCH_$cpparch\n";
-	my @exclude = @common_excludes;
-	push @exclude, read_exclude("exclude-udebs-$arch")
-		if -e exclude_path("exclude-udebs-$arch");
 	my $packagefile="$ENV{MIRROR}/dists/$ENV{DI_CODENAME}/main/debian-installer/binary-$arch/Packages";
 	unless (-f $packagefile) {
 		print "Missing package file for arch $arch.\n";
 		next;
 	}
+	(my $cpparch = $arch) =~ s/-/_/g;
+	print OUT "#ifdef ARCH_$cpparch\n";
+	my @exclude = @common_excludes;
+	push @exclude, read_exclude("exclude-udebs-$arch")
+		if -e exclude_path("exclude-udebs-$arch");
 UDEB:	foreach my $udeb (map { chomp; $_ } `grep-dctrl -n -s Package '' $packagefile`) {
 		foreach my $pattern (@exclude) {
 			if ($udeb =~ /^$pattern$/) {