forked from pool/perl-Unicode-String
e9194387b4
make it build with perl-5.22 OBS-URL: https://build.opensuse.org/request/show/327567 OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Unicode-String?expand=0&rev=19
12 lines
363 B
Diff
12 lines
363 B
Diff
--- 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)}
|
|
}
|
|
|