diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2006-07-12 03:01:29 +0300 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2006-07-12 06:53:22 +0000 |
| commit | 250d67eb8e42c118b44bb5437965a1f4a8a0d828 (patch) | |
| tree | c6ac564b44f2431bc6554af7cebdda630779f5c0 /t/op/index.t | |
| parent | 6c20a8f90405579db59be381a23b6fc12073fdbd (diff) | |
| download | perl-250d67eb8e42c118b44bb5437965a1f4a8a0d828.tar.gz | |
z/OS: t/ - mostly EBCDIC fixes
Message-Id: <200607112101.k6BL1TGr321715@kosh.hut.fi>
p4raw-id: //depot/perl@28550
Diffstat (limited to 't/op/index.t')
| -rwxr-xr-x | t/op/index.t | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/t/op/index.t b/t/op/index.t index 88c0372454..b7cdfb0958 100755 --- a/t/op/index.t +++ b/t/op/index.t @@ -86,8 +86,15 @@ is(rindex($a, "foo", ), 0); } { - my $search = "foo \xc9 bar"; - my $text = "a\xa3\xa3a $search $search quux"; + my $search; + my $text; + if (ord('A') == 193) { + $search = "foo \x71 bar"; + $text = "a\xb1\xb1a $search $search quux"; + } else { + $search = "foo \xc9 bar"; + $text = "a\xa3\xa3a $search $search quux"; + } my $text_utf8 = $text; utf8::upgrade($text_utf8); |