diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-11-04 02:56:34 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-11-04 02:56:34 +0000 |
| commit | 07f14f5412398b0492274e922342ea9f308fea76 (patch) | |
| tree | f896364806d9eb762c56d957f84798ac5d984d79 /doop.c | |
| parent | 0f4592effc29e9b2deb638f6f7e6129ffa8326e3 (diff) | |
| download | perl-07f14f5412398b0492274e922342ea9f308fea76.tar.gz | |
s/sv_upgrade/SvUPGRADE/ a couple of places
p4raw-id: //depot/perl@2187
Diffstat (limited to 'doop.c')
| -rw-r--r-- | doop.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -653,8 +653,7 @@ do_join(register SV *sv, SV *del, register SV **mark, register SV **sp) mark++; len = (items > 0 ? (delimlen * (items - 1) ) : 0); - if (SvTYPE(sv) < SVt_PV) - sv_upgrade(sv, SVt_PV); + (void)SvUPGRADE(sv, SVt_PV); if (SvLEN(sv) < len + items) { /* current length is way too short */ while (items-- > 0) { if (*mark && !SvGMAGICAL(*mark) && SvOK(*mark)) { |