diff options
| author | Leon Timmermans <fawaka@gmail.com> | 2011-09-18 12:22:30 +0200 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-09-18 06:11:32 -0700 |
| commit | 0f18891dd57b91158a442c0a3154f5aa62604dc4 (patch) | |
| tree | f851612d5a67d05a188f00a27b1199f4c8956596 /doio.c | |
| parent | 61154ac0d41ba2a544591a0c8597e503d31abca8 (diff) | |
| download | perl-0f18891dd57b91158a442c0a3154f5aa62604dc4.tar.gz | |
Only upgrade when necessary
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2275,7 +2275,7 @@ Perl_do_shmio(pTHX_ I32 optype, SV **mark, SV **sp) /* suppress warning when reading into undef var (tchrist 3/Mar/00) */ if (! SvOK(mstr)) sv_setpvs(mstr, ""); - sv_upgrade(mstr, SVt_PV); + SvUPGRADE(mstr, SVt_PV); SvPOK_only(mstr); mbuf = SvGROW(mstr, (STRLEN)msize+1); |