[gucharmap] gen-guch-unicode-tables.pl: update for Perl 5.18

[Emilio Pozuelo Monfort <epm src gnome org>]

commit 01a28fc1f118cab76cde4274143cd1d59aa20b98
Author: Emilio Pozuelo Monfort <pochu27 gmail com>
Date:   Tue May 28 23:06:48 2013 +0200

    gen-guch-unicode-tables.pl: update for Perl 5.18
    
    Patch by Roderich Schupp <roderich schupp gmail com>
    
    https://bugzilla.gnome.org/show_bug.cgi?id=701153

 gucharmap/gen-guch-unicode-tables.pl |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)
---
diff --git a/gucharmap/gen-guch-unicode-tables.pl b/gucharmap/gen-guch-unicode-tables.pl
index 46aa55b..f147c3b 100755
--- a/gucharmap/gen-guch-unicode-tables.pl
+++ b/gucharmap/gen-guch-unicode-tables.pl
@@ -373,8 +373,8 @@ sub process_unihan_zip ($)
             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 @@ sub process_unihan_zip ($)
 
     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)