On Thu, Aug 18, 2005 at 11:19:16PM -0700, rajarshi das wrote:
Hi,
Here's a test on perl-5.8.6 run on z/OS :
$a = '0178';
$b = '00FF';
$a1 = pack("U0U*", hex $a);
$b1 = pack("U0U*", map { hex } split " ", $b);
if (":$b1:" =~ /:[$a1]:/i)
print "ok";
The test runs through the opcodes OP_REGCOMP, OP_MATCH and then gets
into the opcode OP_COND_EXPR.
Well, the test above should in fact give a syntax error, since that's not
a valid if syntax.
--
Britain, Britain, Britain! Discovered by Sir Henry Britain in
sixteen-oh-ten. Sold to Germany a year later for a pfennig and the promise
of a kiss. Destroyed in eighteen thirty-fourty two, and rebuilt a week
later by a man. This we know. Hello. But what of the people of Britain?
Who they? What do? And why? -- Little Britain
