Change 30093 by [EMAIL PROTECTED] on 2007/02/02 16:25:23
Testing every pattern by also upgrading to UTF-8 would have caught the
bug added by change 29502, fixed in change 30092.
Affected files ...
... //depot/perl/t/op/regexp.t#43 edit
Differences ...
==== //depot/perl/t/op/regexp.t#43 (xtext) ====
Index: perl/t/op/regexp.t
--- perl/t/op/regexp.t#42~30090~ 2007-02-01 15:32:22.000000000 -0800
+++ perl/t/op/regexp.t 2007-02-02 08:25:23.000000000 -0800
@@ -97,7 +97,11 @@
$reason = 'skipping $&' if $reason eq '' && $skip_amp;
$result =~ s/B//i unless $skip;
- for my $study ('', 'study $subject') {
+ for my $study ('', 'study $subject', 'utf8::upgrade($subject)',
+ 'utf8::upgrade($subject); study $subject') {
+ # Need to make a copy, else the utf8::upgrade of an alreay studied
+ # scalar confuses things.
+ my $subject = $subject;
my $c = $iters;
my ($code, $match, $got);
if ($repl eq 'pos') {
End of Patch.
