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 /toke.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 'toke.c')
| -rw-r--r-- | toke.c | 10 |
1 files changed, 10 insertions, 0 deletions
@@ -634,6 +634,8 @@ S_skipspace(pTHX_ register char *s) sv_upgrade(sv, SVt_PVMG); sv_setpvn(sv,PL_bufptr,PL_bufend-PL_bufptr); + (void)SvIOK_on(sv); + SvIVX(sv) = 0; av_store(CopFILEAV(PL_curcop),(I32)CopLINE(PL_curcop),sv); } } @@ -2469,6 +2471,8 @@ Perl_yylex(pTHX) sv_upgrade(sv, SVt_PVMG); sv_setsv(sv,PL_linestr); + (void)SvIOK_on(sv); + SvIVX(sv) = 0; av_store(CopFILEAV(PL_curcop),(I32)CopLINE(PL_curcop),sv); } goto retry; @@ -2552,6 +2556,8 @@ Perl_yylex(pTHX) sv_upgrade(sv, SVt_PVMG); sv_setsv(sv,PL_linestr); + (void)SvIOK_on(sv); + SvIVX(sv) = 0; av_store(CopFILEAV(PL_curcop),(I32)CopLINE(PL_curcop),sv); } PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr); @@ -6533,6 +6539,8 @@ S_scan_heredoc(pTHX_ register char *s) sv_upgrade(sv, SVt_PVMG); sv_setsv(sv,PL_linestr); + (void)SvIOK_on(sv); + SvIVX(sv) = 0; av_store(CopFILEAV(PL_curcop), (I32)CopLINE(PL_curcop),sv); } if (*s == term && memEQ(s,PL_tokenbuf,len)) { @@ -6883,6 +6891,8 @@ S_scan_str(pTHX_ char *start, int keep_quoted, int keep_delims) sv_upgrade(sv, SVt_PVMG); sv_setsv(sv,PL_linestr); + (void)SvIOK_on(sv); + SvIVX(sv) = 0; av_store(CopFILEAV(PL_curcop), (I32)CopLINE(PL_curcop), sv); } |