summaryrefslogtreecommitdiff
path: root/vutil.c
diff options
context:
space:
mode:
Diffstat (limited to 'vutil.c')
-rw-r--r--vutil.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/vutil.c b/vutil.c
index 7979c49c15..96aa6f63ad 100644
--- a/vutil.c
+++ b/vutil.c
@@ -553,6 +553,7 @@ Perl_upg_version(pTHX_ SV *ver, bool qv)
const MAGIC *mg;
#endif
+ ENTER;
PERL_ARGS_ASSERT_UPG_VERSION;
if ( SvNOK(ver) && !( SvPOK(ver) && SvCUR(ver) == 3 ) )
@@ -655,6 +656,7 @@ Perl_upg_version(pTHX_ SV *ver, bool qv)
Perl_ck_warner(aTHX_ packWARN(WARN_MISC),
"Version string '%s' contains invalid data; "
"ignoring: '%s'", version, s);
+ LEAVE;
return ver;
}