--- /usr/bin/dpkg-architecture.orig	2005-05-17 12:43:03.000000000 +0000
+++ /usr/bin/dpkg-architecture	2005-05-18 08:55:31.668572652 +0000
@@ -109,14 +109,14 @@
     local ($a);
 
     local ($gnu_cpu, $gnu_os) = &split_gnu($gnu);
-    foreach $a (keys %cputable_re) {
+    foreach $a (@cpu) {
 	if ($gnu_cpu =~ /^$cputable_re{$a}$/) {
 	    $cpu = $a;
 	    last;
 	}
     }
 
-    foreach $a (keys %ostable_re) {
+    foreach $a (@os) {
 	if ($gnu_os =~ /^(.*-)?$ostable_re{$a}$/) {
 	    $os = $a;
 	    last;