diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2001-05-25 23:35:01 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-26 13:17:47 +0000 |
| commit | 95fd33e1a0d6a8476baddd41f4252bac0400ae4e (patch) | |
| tree | f1a8aa050e716f4a2ca1ad82844a82648abd7b6f /t/op/regexp.t | |
| parent | c16425f1b01347226d2386c029d71b356d39092d (diff) | |
| download | perl-95fd33e1a0d6a8476baddd41f4252bac0400ae4e.tar.gz | |
utf8 regexp tests
Message-Id: <200105252135.WAA03197@crypt.compulink.co.uk>
p4raw-id: //depot/perl@10216
Diffstat (limited to 't/op/regexp.t')
| -rwxr-xr-x | t/op/regexp.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/regexp.t b/t/op/regexp.t index 4a4d42fd98..0751559964 100755 --- a/t/op/regexp.t +++ b/t/op/regexp.t @@ -70,8 +70,8 @@ while (<TESTS>) { $expect = $repl = '-' if $skip_amp and $input =~ /\$[&\`\']/; $skip = ($skip_amp ? ($result =~ s/B//i) : ($result =~ s/B//)); # Certain tests don't work with utf8 (the re_test should be in UTF8) - $skip = 1, $reason = 'utf8' - if ($^H &= ~0x00000008) && $pat =~ /\[:\^(alnum|print|word|ascii|xdigit):\]/; +# $skip = 1, $reason = 'utf8' +# if ($^H &= ~0x00000008) && $pat =~ /\[:\^(alnum|print|word|ascii|xdigit):\]/; $result =~ s/B//i unless $skip; for $study ('', 'study \$subject') { $c = $iters; |