This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f758bdd
)
re/reg_fold.t: Use /u rules for Unicode tests
author
Karl Williamson
<public@khwilliamson.com>
Sun, 25 Dec 2011 21:24:42 +0000
(14:24 -0700)
committer
Karl 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
patch
|
blob
|
blame
|
history
diff --git
a/t/re/reg_fold.t
b/t/re/reg_fold.t
index
50ccc88
..
45a2813
100644
(file)
--- a/
t/re/reg_fold.t
+++ b/
t/re/reg_fold.t
@@
-45,7
+45,7
@@
while (<$fh>) {
}
}
$lhs = "\"$lhs\"";
- $rhs = "/^$rhs\$/i";
+ $rhs = "/^$rhs\$/i
u
";
# Try both Latin1 and Unicode for code points below 256
foreach my $upgrade ("", 'utf8::upgrade($c); ') {