diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-12 15:37:40 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-12 15:37:40 +0000 |
| commit | 4c034eee48cd80c10d94a4699e2ec9f3d69ae855 (patch) | |
| tree | a96f03f03dd198cdcb843c685bff86efbfe8e434 /t | |
| parent | 1b2d223bc80114ab97e5af7bf5270927ae350ba4 (diff) | |
| download | perl-4c034eee48cd80c10d94a4699e2ec9f3d69ae855.tar.gz | |
(retracted by #16560)
EBCDIC: must protect also compile time so that
the illegal UTF-EBCDIC is not seen.
p4raw-id: //depot/perl@16557
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/pat.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index 4865c5eab7..971ca711af 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -1279,6 +1279,7 @@ print "ok 247\n"; if (ord("ß") == 0337) { # Latin-1 only. # bug id 20001008.001 + eval <<'__EOT__'; my $test = 248; my @x = ("stra\337e 138","stra\337e 138"); for (@x) { @@ -1291,6 +1292,7 @@ print "ok 247\n"; use utf8; # needed for the raw UTF-8 $latin =~ s!(s)tr(?:aß|s+e)!$1tr.!; # \303\237 after the a } +__EOT__ } else { for (248..249) { print "ok $_ # Skip: only in Latin-1\n"; |