--- gucharmap-3.8.2-ORIG/gucharmap/gen-guch-unicode-tables.pl	2013-05-26 19:29:41.581766325 +0200
+++ gucharmap-3.8.2/gucharmap/gen-guch-unicode-tables.pl	2013-05-26 19:30:15.336999725 +0200
@@ -373,8 +373,8 @@
             undef $kJapaneseOn;
         }
 
-        for my $f qw(kDefinition kCantonese kMandarin
-                     kTang kKorean kJapaneseKun kJapaneseOn) {
+        for my $f (qw(kDefinition kCantonese kMandarin
+                     kTang kKorean kJapaneseKun kJapaneseOn)) {
 
             if ($field eq $f) {
 	        push @strings, $value;
@@ -423,8 +423,8 @@
 
     print $out "static const Unihan *_get_unihan (gunichar uc)\n;";
 
-    for my $name qw(kDefinition kCantonese kMandarin
-		    kTang kKorean kJapaneseKun kJapaneseOn) {
+    for my $name (qw(kDefinition kCantonese kMandarin
+		    kTang kKorean kJapaneseKun kJapaneseOn)) {
     print $out <<EOT;
 
 static inline const char * unihan_get_$name (const Unihan *uh)
