Update Unicode-Collate to CPAN version 1.02

[perl5.git] / cpan / Unicode-Collate / t / loc_ta.t

diff --git a/cpan/Unicode-Collate/t/loc_ta.t b/cpan/Unicode-Collate/t/loc_ta.t
index e9a85ee..9f43ace 100644 (file)
--- a/cpan/Unicode-Collate/t/loc_ta.t
+++ b/cpan/Unicode-Collate/t/loc_ta.t
@@ -33,9 +33,6 @@ ok(1);
 
 #########################
 
-my $Kssa = "\x{B95}\x{BCD}\x{BB7}";
-my $v    = "\x{BCD}";
-
 my $objTa = Unicode::Collate::Locale->
     new(locale => 'TA', normalization => undef);
 
@@ -43,6 +40,9 @@ ok($objTa->getlocale, 'ta');
 
 $objTa->change(level => 1);
 
+my $Kssa = "\x{B95}\x{BCD}\x{BB7}";
+my $v    = "\x{BCD}";
+
 for my $h (0, 1) {
     no warnings 'utf8';
     my $t = $h ? pack('U', 0xFFFF) : "";
@@ -100,3 +100,5 @@ for my $h (0, 1) {
     ok($objTa->lt("${Kssa}$v$t", "${Kssa}"));
     ok($objTa->lt("${Kssa}$t",   "\x{BBE}"));
 }
+
+# 104