diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-06-23 07:35:03 +0000 |
|---|---|---|
| committer | Charles Bailey <bailey@genetics.upenn.edu> | 1996-06-23 07:35:03 +0000 |
| commit | 4a3fa9e6ff58affcb7dda23f35f728731510e354 (patch) | |
| tree | 5e2449ab31f7e05a1bcfd19f751a569ea0528819 /op.c | |
| parent | 0e051d6bdfed909406b94fc24753cffed9e3d988 (diff) | |
| download | perl-4a3fa9e6ff58affcb7dda23f35f728731510e354.tar.gz | |
Fix overeager integer optimization
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1413,7 +1413,7 @@ register OP *o; for (curop = ((UNOP*)o)->op_first; curop; curop = curop->op_sibling) { if (curop->op_type == OP_CONST) { if (SvIOK(((SVOP*)curop)->op_sv)) { - if (SvIVX(((SVOP*)curop)->op_sv) < 0 && vars++) + if (SvIVX(((SVOP*)curop)->op_sv) <= 0 && vars++) return o; /* negatives truncate wrong way, alas */ continue; } |