Re: opcode sequence.
[email protected] (rajarshi das)
| Newsgroups | perl.unicode,perl.mvs,perl.perl5.porters |
|---|---|
| Message-ID | <[email protected]> |
Yitzchak Scott-Thoennes <[email protected]> wrote: On Fri, Aug 19, 2005 at 12:51:09AM -0700, rajarshi das wrote: > > > Dave Mitchell 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. cond_expr would be there if there were an else clause. But the test doesnot contain an else clause. What I have indicated above is exactly what I run. Rajarshi. --------------------------------- Yahoo! Mail for Mobile Take Yahoo! Mail with you! Check email on your mobile phone.