This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Refactoring to Sv*_set() macros - patch #5
[perl5.git] / toke.c
diff --git a/toke.c b/toke.c
index 352254f..cd2cfe5 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -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
            }