diff --git a/perl-Unicode-String.changes b/perl-Unicode-String.changes
index 6383bae..c774e1e 100644
--- a/perl-Unicode-String.changes
+++ b/perl-Unicode-String.changes
@@ -1,3 +1,8 @@
+-------------------------------------------------------------------
+Thu Aug 27 10:42:46 UTC 2015 - hsk@imb-jena.de
+
+- perl522.patch: fix to make module work with perl-5.22
+
 -------------------------------------------------------------------
 Wed Oct 15 07:28:46 UTC 2014 - jengelh@inai.de
 
diff --git a/perl-Unicode-String.spec b/perl-Unicode-String.spec
index 19497c4..02d0f8f 100644
--- a/perl-Unicode-String.spec
+++ b/perl-Unicode-String.spec
@@ -24,6 +24,7 @@ License:        Artistic-1.0
 Group:          Development/Libraries/Perl
 Url:            http://cpan.org/modules/by-module/Unicode/
 Source:         http://search.cpan.org/CPAN/authors/id/G/GA/GAAS/Unicode-String-%version.tar.gz
+Patch0:         perl522.patch
 BuildRoot:      %{_tmppath}/%{name}-%{version}-build
 %{perl_requires}
 BuildRequires:  perl
@@ -46,6 +47,7 @@ Authors:
 
 %prep
 %setup -n Unicode-String-%{version}
+%patch0 -p2
 
 %build
 perl Makefile.PL OPTIMIZE="$RPM_OPT_FLAGS -Wall"
diff --git a/perl522.patch b/perl522.patch
new file mode 100644
index 0000000..3b8d490
--- /dev/null
+++ b/perl522.patch
@@ -0,0 +1,11 @@
+--- 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)}
+ }
+