diff options
| author | Mark-Jason Dominus <mjd@plover.com> | 2001-11-06 19:43:46 -0500 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2001-11-07 05:14:04 +0000 |
| commit | 0ac0412a111b224c7f0c310960dde8b2a3fdad89 (patch) | |
| tree | 7c759f395b620bdec40b0538b8b9219a6011786c /op.c | |
| parent | 2f7e91877d1bb8a421b887cf5759dc05d0285cb9 (diff) | |
| download | perl-0ac0412a111b224c7f0c310960dde8b2a3fdad89.tar.gz | |
Re: [ID 20011106.083] $dbline[$i] == 0 generates warnings
Message-Id: <20011107054346.14428.qmail@plover.com>
p4raw-id: //depot/perl@12882
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -3695,10 +3695,10 @@ Perl_newSTATEOP(pTHX_ I32 flags, char *label, OP *o) if (PERLDB_LINE && PL_curstash != PL_debstash) { SV **svp = av_fetch(CopFILEAV(PL_curcop), (I32)CopLINE(cop), FALSE); - if (svp && *svp != &PL_sv_undef && !SvIOK(*svp)) { - (void)SvIOK_on(*svp); + if (svp && *svp != &PL_sv_undef ) { + (void)SvIOK_on(*svp); SvIVX(*svp) = PTR2IV(cop); - } + } } return prepend_elem(OP_LINESEQ, (OP*)cop, o); |