From e6b8b224520329e2283adf4b7a6bb3b229f25ac1 Mon Sep 17 00:00:00 2001
From: Peter Prymmer <PPrymmer@factset.com>
Date: Fri, 26 Jan 2001 08:05:11 -0800
Subject: EBCDIC branch for pragma/sub-lval.t Message-ID:
 <Pine.OSF.4.10.10101261603460.14820-100000@aspara.forte.com>

p4raw-id: //depot/perl@8558
---
 t/pragma/sub_lval.t | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 't/pragma')

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";
 
-- 
cgit v1.2.1