diff options
| author | Steve Peters <steve@fisharerojo.org> | 2005-04-18 14:09:25 -0500 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-04-19 09:55:51 +0000 |
| commit | b162af07ec759e1ba6b84569e4963bc5c289d75f (patch) | |
| tree | dae58f745e70011d6b87525617543b26a5ff39fe /toke.c | |
| parent | 9660f4819671f0b9100e5eabfa988ead3e799a1e (diff) | |
| download | perl-b162af07ec759e1ba6b84569e4963bc5c289d75f.tar.gz | |
Refactoring to Sv*_set() macros - patch #5
Message-ID: <20050419000925.GA21640@mccoy.peters.homeunix.org>
Date: Mon, 18 Apr 2005 19:09:25 -0500
p4raw-id: //depot/perl@24248
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -5267,7 +5267,7 @@ Perl_yylex(pTHX) Perl_warner(aTHX_ packWARN(WARN_SYNTAX), "Illegal character in prototype for %"SVf" : %s", PL_subname, d); - SvCUR(PL_lex_stuff) = tmp; + SvCUR_set(PL_lex_stuff, tmp); have_proto = TRUE; s = skipspace(s); @@ -10539,7 +10539,7 @@ S_scan_formline(pTHX_ register char *s) char *end = SvPVX(stuff) + SvCUR(stuff); end[-2] = '\n'; end[-1] = '\0'; - SvCUR(stuff)--; + SvCUR_set(stuff, SvCUR(stuff) - 1); } #endif } |