diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2001-01-26 08:05:11 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-01-27 02:27:05 +0000 |
| commit | e6b8b224520329e2283adf4b7a6bb3b229f25ac1 (patch) | |
| tree | d400817acda03ef896fa76544c587546e1e61d74 /t/pragma | |
| parent | b2010bf66cbe5557362ab7fce827491534c119be (diff) | |
| download | perl-e6b8b224520329e2283adf4b7a6bb3b229f25ac1.tar.gz | |
EBCDIC branch for pragma/sub-lval.t
Message-ID: <Pine.OSF.4.10.10101261603460.14820-100000@aspara.forte.com>
p4raw-id: //depot/perl@8558
Diffstat (limited to 't/pragma')
| -rwxr-xr-x | t/pragma/sub_lval.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/t/pragma/sub_lval.t b/t/pragma/sub_lval.t index 03a2fa0a9a..f19268b384 100755 --- a/t/pragma/sub_lval.t +++ b/t/pragma/sub_lval.t @@ -514,7 +514,12 @@ print "ok 61\n"; $str = "Made w/ JavaScript"; sub veclv : lvalue { vec($str, 2, 32) } -veclv() = 0x5065726C; +if (ord('A') != 193) { + veclv() = 0x5065726C; +} +else { # EBCDIC? + veclv() = 0xD7859993; +} print "# $str\nnot " unless $str eq "Made w/ PerlScript"; print "ok 62\n"; |