diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-11-13 19:31:19 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-11-13 19:31:19 +0000 |
| commit | 091c0eb7afda954d4b458ffef52b90ee0ff8afe5 (patch) | |
| tree | b383f52ecdb35f8cea6a48c5fb89fc7940fbaada /t/op/regexp.t | |
| parent | ba973abb2167d22cf71ef30581193c3aaa1d885d (diff) | |
| download | perl-091c0eb7afda954d4b458ffef52b90ee0ff8afe5.tar.gz | |
revert non-kosher parts of change#4562 (sort order problems
should be ignored (on ebcdic) by fixing dumper.t/T() to sort
result and expected lines; /[:ascii:]/ not working should be
fixed, not ignored in regexp.t; result from sort should be
fixed to be ascii portable on ebcdic, not ebcdic-specific)
p4raw-link: @4562 on //depot/cfgperl: ee50adbe6978769b1ad873bd2be52593b054ff83
p4raw-id: //depot/perl@4574
Diffstat (limited to 't/op/regexp.t')
| -rwxr-xr-x | t/op/regexp.t | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/t/op/regexp.t b/t/op/regexp.t index 74ca639a8c..4ffe1362c6 100755 --- a/t/op/regexp.t +++ b/t/op/regexp.t @@ -71,8 +71,6 @@ while (<TESTS>) { $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 if ($^H &= ~0x00000008) && $pat =~ /\[:\^(alnum|print|word):\]/; - # ebcdic platforms do not do [:ascii:] - $skip = 1 if ("\t" ne "\011") && $pat =~ /\[:\^?ascii:\]/; $result =~ s/B//i unless $skip; for $study ('', 'study \$subject') { $c = $iters; |