Dave Mitchell <[EMAIL PROTECTED]> wrote:
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.
I have included the braces if that is what you meant.Rajarshi.
--
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
Start your day with Yahoo! - make it your home page
