On Fri, Aug 19, 2005 at 01:15:07AM -0700, rajarshi das wrote:
> 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.
I have run it with both sets of values for $a and $b, and both times I see
the
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 thr
On Fri, Aug 19, 2005 at 12:51:09AM -0700, rajarshi das wrote:
>
>
> 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
Yitzchak Scott-Thoennes <[EMAIL PROTECTED]> wrote:
On Fri, Aug 19, 2005 at 12:51:09AM -0700, rajarshi das wrote:> > > 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
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
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.
Now
