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 PrymmerThread Next