This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
re/reg_fold.t: Use /u rules for Unicode tests
authorKarl Williamson <public@khwilliamson.com>
Sun, 25 Dec 2011 21:24:42 +0000 (14:24 -0700)
committerKarl Williamson <public@khwilliamson.com>
Thu, 19 Jan 2012 18:58:19 +0000 (11:58 -0700)
These tests are for Unicode, so should have /u (instead of /d).

t/re/reg_fold.t

index 50ccc88..45a2813 100644 (file)
@@ -45,7 +45,7 @@ while (<$fh>) {
                 }
             }
             $lhs = "\"$lhs\"";
-            $rhs = "/^$rhs\$/i";
+            $rhs = "/^$rhs\$/iu";
 
             # Try both Latin1 and Unicode for code points below 256
             foreach my $upgrade ("", 'utf8::upgrade($c); ') {