summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorAndy Lester <andy@petdance.com>2005-06-06 18:08:50 -0500
committerH.Merijn Brand <h.m.brand@xs4all.nl>2005-06-07 08:18:59 +0000
commit862a34c634844bb3ea22e5f44bdaf2e973831a89 (patch)
tree77292e7d3d639e71bc2aca9df160653ecea15005 /pp_ctl.c
parentc158a4fd68e274329d9ffd7198cb9eb1b21b0dfe (diff)
downloadperl-862a34c634844bb3ea22e5f44bdaf2e973831a89.tar.gz
Unvoid SvUPGRADE
Message-ID: <20050607040850.GA7033@petdance.com> p4raw-id: //depot/perl@24717
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index 2ee4e886ad..8fd89c0ac6 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -285,7 +285,7 @@ PP(pp_substcont)
MAGIC *mg;
I32 i;
if (SvTYPE(sv) < SVt_PVMG)
- (void)SvUPGRADE(sv, SVt_PVMG);
+ SvUPGRADE(sv, SVt_PVMG);
if (!(mg = mg_find(sv, PERL_MAGIC_regex_global))) {
sv_magic(sv, Nullsv, PERL_MAGIC_regex_global, Nullch, 0);
mg = mg_find(sv, PERL_MAGIC_regex_global);