From 862a34c634844bb3ea22e5f44bdaf2e973831a89 Mon Sep 17 00:00:00 2001 From: Andy Lester Date: Mon, 6 Jun 2005 18:08:50 -0500 Subject: Unvoid SvUPGRADE Message-ID: <20050607040850.GA7033@petdance.com> p4raw-id: //depot/perl@24717 --- doop.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'doop.c') diff --git a/doop.c b/doop.c index 22160aff63..d35fe309d1 100644 --- a/doop.c +++ b/doop.c @@ -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)) { -- cgit v1.2.1