diff options
| author | Yitzchak Scott-Thoennes <sthoenna@efn.org> | 2002-09-30 08:22:18 -0700 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-10-01 08:49:02 +0000 |
| commit | d2be0de5a5030be3ee411cadf9db630bb6fd8a4a (patch) | |
| tree | bdf7c2e0ec88190d6f03796096298dc7255a36c3 /op.c | |
| parent | 04c1a02be98ce9945e4da9b8fdb006d61420b34d (diff) | |
| download | perl-d2be0de5a5030be3ee411cadf9db630bb6fd8a4a.tar.gz | |
patch based on:
Subject: Re: [perl #17376] Bug Report - our(%)
Message-ID: <a6Mm9gzkgK0P092yn@efn.org>
p4raw-id: //depot/perl@17949
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 12 |
1 files changed, 12 insertions, 0 deletions
@@ -2146,10 +2146,16 @@ Perl_my_attrs(pTHX_ OP *o, OP *attrs) OP *rops = Nullop; int maybe_scalar = 0; +/* [perl #17376]: this appears to be premature, and results in code such as + C< my(%x); > executing in list mode rather than void mode */ +#if 0 if (o->op_flags & OPf_PARENS) list(o); else maybe_scalar = 1; +#else + maybe_scalar = 1; +#endif if (attrs) SAVEFREEOP(attrs); o = my_kid(o, attrs, &rops); @@ -2381,7 +2387,13 @@ OP * Perl_localize(pTHX_ OP *o, I32 lex) { if (o->op_flags & OPf_PARENS) +/* [perl #17376]: this appears to be premature, and results in code such as + C< our(%x); > executing in list mode rather than void mode */ +#if 0 list(o); +#else + ; +#endif else { if (ckWARN(WARN_PARENTHESIS) && PL_bufptr > PL_oldbufptr && PL_bufptr[-1] == ',') |