diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-06-03 14:38:09 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-06-03 14:38:09 +0000 |
commit | d653c6f5cfd47fd6d82c68d8013461da4731be40 (patch) | |
tree | 28b032880a04f21e0886e129d329f25c31c2d06b /toke.c | |
parent | 64ca3a6502a07a2652bb713108527be0e9066745 (diff) | |
parent | 63caf6080702341afbd2806f3d0b2bb9ccae687d (diff) | |
download | perl-d653c6f5cfd47fd6d82c68d8013461da4731be40.tar.gz |
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@6196
Diffstat (limited to 'toke.c')
-rw-r--r-- | toke.c | 11 |
1 files changed, 8 insertions, 3 deletions
@@ -502,8 +502,14 @@ S_incline(pTHX_ char *s) ch = *t; *t = '\0'; - if (t - s > 0) + if (t - s > 0) { +#ifdef USE_ITHREADS + Safefree(CopFILE(PL_curcop)); +#else + SvREFCNT_dec(CopFILEGV(PL_curcop)); +#endif CopFILE_set(PL_curcop, s); + } *t = ch; CopLINE_set(PL_curcop, atoi(n)-1); } @@ -2948,8 +2954,7 @@ Perl_yylex(pTHX) PL_expect = XTERM; TOKEN('('); case ';': - if (CopLINE(PL_curcop) < PL_copline) - PL_copline = CopLINE(PL_curcop); + CLINE; tmp = *s++; OPERATOR(tmp); case ')': |