diff options
| author | Nicholas Clark <nick@ccl4.org> | 2002-02-09 21:00:13 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-09 21:12:12 +0000 |
| commit | e7311069df54baa6a1d1a01108d597c7e34c71c6 (patch) | |
| tree | 0be411b9f9bccb833586cd08e26e9fcafa173d89 /op.c | |
| parent | 03f2ffd895258305c1ea68d47825444da3615478 (diff) | |
| download | perl-e7311069df54baa6a1d1a01108d597c7e34c71c6.tar.gz | |
Re: Modulus operator inconsistency
Message-ID: <20020209210013.GG410@Bagpuss.unfortu.net>
p4raw-id: //depot/perl@14613
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 24 |
1 files changed, 0 insertions, 24 deletions
@@ -2498,30 +2498,6 @@ Perl_fold_constants(pTHX_ register OP *o) } nope: - if (!(PL_opargs[type] & OA_OTHERINT)) - return o; - - if (!(PL_hints & HINT_INTEGER)) { - if (type == OP_MODULO - || type == OP_DIVIDE - || !(o->op_flags & OPf_KIDS)) - { - return o; - } - - for (curop = ((UNOP*)o)->op_first; curop; curop = curop->op_sibling) { - if (curop->op_type == OP_CONST) { - if (SvIOK(((SVOP*)curop)->op_sv)) - continue; - return o; - } - if (PL_opargs[curop->op_type] & OA_RETINTEGER) - continue; - return o; - } - o->op_ppaddr = PL_ppaddr[++(o->op_type)]; - } - return o; } |