develooper Front page | perl.perl5.porters | Postings from January 2001

[PATCH: perl@8531] EBCDIC branch for pragma/sub-lval.t

Thread Next
From:
Peter Prymmer
Date:
January 26, 2001 16:02
Subject:
[PATCH: perl@8531] EBCDIC branch for pragma/sub-lval.t
Message ID:
Pine.OSF.4.10.10101261603460.14820-100000@aspara.forte.com

Enjoy,

--- t/pragma/sub_lval.t.orig	Fri Jan 26 15:47:03 2001
+++ t/pragma/sub_lval.t	Fri Jan 26 15:56:00 2001
@@ -514,7 +514,12 @@
 
 $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";
 
End of Patch.

Peter Prymmer




Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About