diff options
Diffstat (limited to 'ext/PerlIO/scalar/scalar.xs')
| -rw-r--r-- | ext/PerlIO/scalar/scalar.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/PerlIO/scalar/scalar.xs b/ext/PerlIO/scalar/scalar.xs index b26a238558..0d56ecc613 100644 --- a/ext/PerlIO/scalar/scalar.xs +++ b/ext/PerlIO/scalar/scalar.xs @@ -37,7 +37,7 @@ PerlIOScalar_pushed(pTHX_ PerlIO * f, const char *mode, SV * arg, else { s->var = newSVpvn("", 0); } - sv_upgrade(s->var, SVt_PV); + SvUPGRADE(s->var, SVt_PV); code = PerlIOBase_pushed(aTHX_ f, mode, Nullsv, tab); if ((PerlIOBase(f)->flags) & PERLIO_F_TRUNCATE) SvCUR(s->var) = 0; |