File perl522.patch of Package perl-Unicode-String

--- a/Unicode-String-2.09/lib/Unicode/CharName.pm	2005-10-25 20:11:00.000000000 +0200
+++ b/Unicode-String-2.09/lib/Unicode/CharName.pm	2015-08-27 12:33:13.761929481 +0200
@@ -77,7 +77,7 @@
 	    return join("", "HANGUL SYLLABLE ", @s)
 	}
     }
-    _init_names() unless defined %NAMES;
+    _init_names() unless %NAMES;
     $NAMES{sprintf("%04X",$code)}
 }