diff options
| author | Dorner Thomas <tdorner@amadeus.net> | 2003-12-19 08:16:47 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2004-01-01 19:22:24 +0000 |
| commit | cc8040a133daf622c9005eb6ffea6375088dc5e7 (patch) | |
| tree | 6986bc2bb4a81c5d9f286d74a8e83790938370ab /t/op/pat.t | |
| parent | 1933e12cd0d32c774bd7f483285802de52dc8cbc (diff) | |
| download | perl-cc8040a133daf622c9005eb6ffea6375088dc5e7.tar.gz | |
Perl 5.8.3 patches from the BS2000 port - part 2
Message-ID: <6727B1DACFCDD311A757009027CA8D69044B6740@Ex02.inhouse.start.de>
Date: Fri, 19 Dec 2003 07:16:47 +0100
p4raw-id: //depot/perl@22033
Diffstat (limited to 't/op/pat.t')
| -rwxr-xr-x | t/op/pat.t | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index 7eeb79ffb7..7757c40236 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -1689,10 +1689,11 @@ EOT print "not " if $x =~ /[\x{100}]/; print "ok 604\n"; - print "not " unless $x =~ /\p{InLatin1Supplement}/; + # the next two tests must be ignored on EBCDIC + print "not " unless $x =~ /\p{InLatin1Supplement}/ or ord("A") == 193; print "ok 605\n"; - print "not " if $x =~ /\P{InLatin1Supplement}/; + print "not " if $x =~ /\P{InLatin1Supplement}/ and ord("A") != 193; print "ok 606\n"; print "not " if $x =~ /\p{InLatinExtendedA}/; @@ -1907,7 +1908,8 @@ print "ok 663\n"; print "not " unless chr(0xfb4f) =~ /\p{IsHebrew}/; # outside InHebrew print "ok 664\n"; -print "not " unless chr(0xb5) =~ /\p{IsGreek}/; # singleton (not in a range) +# singleton (not in a range, this test must be ignored on EBCDIC) +print "not " unless chr(0xb5) =~ /\p{IsGreek}/ or ord("A") == 193; print "ok 665\n"; print "not " unless chr(0x37a) =~ /\p{IsGreek}/; # singleton |