This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
reg_fold.t: Allow to work on early Unicodes
authorKarl Williamson <public@khwilliamson.com>
Tue, 27 Mar 2012 16:03:30 +0000 (10:03 -0600)
committerKarl Williamson <public@khwilliamson.com>
Sat, 2 Jun 2012 14:29:17 +0000 (08:29 -0600)
If the version of Unicode being compiled doesn't have the modern
casefolding .txt file, get the values from Unicode::UCD.  Also for
EBCDIC, where otherwise the file would have to be translated.

t/re/reg_fold.t

index 89c4370..9b5ef11 100644 (file)
@@ -20,7 +20,7 @@ use Unicode::UCD;
 # available.  This avoids being affected by potential bugs introduced by other
 # layers of Perl
 if (ord('A') == 65
-    && pack "C*", split /\./, Unicode::UCD::UnicodeVersion() ge v3.1.0
+    && pack("C*", split /\./, Unicode::UCD::UnicodeVersion()) ge v3.1.0
     && open my $fh, "<", $file)
 {
     @folds = <$fh>;