diff options
| author | Andy Lester <andy@petdance.com> | 2005-06-06 18:08:50 -0500 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2005-06-07 08:18:59 +0000 |
| commit | 862a34c634844bb3ea22e5f44bdaf2e973831a89 (patch) | |
| tree | 77292e7d3d639e71bc2aca9df160653ecea15005 /doop.c | |
| parent | c158a4fd68e274329d9ffd7198cb9eb1b21b0dfe (diff) | |
| download | perl-862a34c634844bb3ea22e5f44bdaf2e973831a89.tar.gz | |
Unvoid SvUPGRADE
Message-ID: <20050607040850.GA7033@petdance.com>
p4raw-id: //depot/perl@24717
Diffstat (limited to 'doop.c')
| -rw-r--r-- | doop.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -653,7 +653,7 @@ Perl_do_join(pTHX_ register SV *sv, SV *del, register SV **mark, register SV **s mark++; len = (items > 0 ? (delimlen * (items - 1) ) : 0); - (void)SvUPGRADE(sv, SVt_PV); + SvUPGRADE(sv, SVt_PV); if (SvLEN(sv) < len + items) { /* current length is way too short */ while (items-- > 0) { if (*mark && !SvGAMAGIC(*mark) && SvOK(*mark)) { |