Index: apt-setup
===================================================================
RCS file: /cvsroot/base-config/base-config/apt-setup,v
retrieving revision 1.42
diff -u -r1.42 apt-setup
--- apt-setup	19 Feb 2004 14:46:08 -0000	1.42
+++ apt-setup	21 Feb 2004 07:25:26 -0000
@@ -38,6 +38,9 @@
 	gettext "enter information manually, "
 	perl -ne '
 		BEGIN {
+			use Locale::gettext;
+			use POSIX;
+			textdomain("iso_3166");
 			$type=shift;
 			open (T, "/usr/share/zoneinfo/iso3166.tab");
 			while (<T>) {
@@ -51,7 +54,7 @@
 		}
 		if (/Archive-$type:/) {
 			($c)=/Country: (.*?)\s+.*\n/;
-			$countries{$c{$c}}=1 if $c;
+			$countries{gettext($c{$c})}=1 if $c;
 		}
 		END { print join(", ", sort(keys %countries)) }
 	' $1 $MIRRORLIST
@@ -64,6 +67,9 @@
 mirror_list () {
 	perl -ne '
 		BEGIN {
+			use Locale::gettext;
+			use POSIX;
+			textdomain("iso_3166");
 			$type=shift;
 			$country=shift;
 			open (T, "/usr/share/zoneinfo/iso3166.tab");
@@ -71,7 +77,7 @@
 				next if /^#/;
 				chomp;
 				($code, $long)=split(/\t/, $_);
-				if ($long eq $country) {
+				if (gettext($long) eq $country) {
 					$country=$code;
 				        close T;
 				}