Unicode-Collate: Update to 1.25_01

Skip redefinition warnings on cperl since 5.27.2

Author: rurban

cpan/Unicode-Collate/Collate.pm

@@ -17,12 +17,13 @@ use File::Spec;
 
 no warnings 'utf8';
 
-our $VERSION = '1.25';
+our $VERSION = '1.25_01';
+our $XS_VERSION = eval $VERSION;
 our $PACKAGE = __PACKAGE__;
 
 ### begin XS only ###
 use XSLoader ();
-XSLoader::load('Unicode::Collate', $VERSION);
+XSLoader::load('Unicode::Collate', $XS_VERSION);
 ### end XS only ###
 
 my @Path = qw(Unicode Collate);

cpan/Unicode-Collate/Collate.xs

@@ -25,21 +25,24 @@
 
 #define VCE_Length	(9)
 
+#ifndef Hangul_SBase
 #define Hangul_SBase  (0xAC00)
-#define Hangul_SIni   (0xAC00)
-#define Hangul_SFin   (0xD7A3)
 #define Hangul_NCount (588)
 #define Hangul_TCount (28)
 #define Hangul_LBase  (0x1100)
+#define Hangul_VBase  (0x1161)
+#define Hangul_TBase  (0x11A7) /* from "no-final" codepoint */
+#endif
+
+#define Hangul_SIni   (0xAC00)
+#define Hangul_SFin   (0xD7A3)
 #define Hangul_LIni   (0x1100)
 #define Hangul_LFin   (0x1159)
 #define Hangul_LFill  (0x115F)
 #define Hangul_LEnd   (0x115F) /* Unicode 5.2 */
-#define Hangul_VBase  (0x1161)
 #define Hangul_VIni   (0x1160) /* from Vowel Filler */
 #define Hangul_VFin   (0x11A2)
 #define Hangul_VEnd   (0x11A7) /* Unicode 5.2 */
-#define Hangul_TBase  (0x11A7) /* from "no-final" codepoint */
 #define Hangul_TIni   (0x11A8)
 #define Hangul_TFin   (0x11F9)
 #define Hangul_TEnd   (0x11FF) /* Unicode 5.2 */

dist/Module-CoreList/lib/Module/CoreList.pm

@@ -16182,7 +16182,7 @@ our %delta = (
             'Thread::Queue'         => '3.12',
             'Time::HiRes'           => '1.9751',
             'Time::Piece'           => '1.3203',
-            'Unicode::Collate'      => '1.25',
+            'Unicode::Collate'      => '1.25_01',
             'Unicode::Collate::CJK::Big5'=> '1.25',
             'Unicode::Collate::CJK::GB2312'=> '1.25',
             'Unicode::Collate::CJK::JISX0208'=> '1.25',

pod/perlcdelta.pod

@@ -241,7 +241,7 @@ Updated from 3.01, many critical fixes.
 
 =item L<Time::Piece>  1.3203
 
-=item L<Unicode::Collate>  1.25
+=item L<Unicode::Collate>  1.25_01
 
 =item L<VMS::DCLsym>  1.09