diff options
| author | John Peacock <jpeacock@cpan.org> | 2014-01-18 19:25:52 -0500 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-01-18 17:37:08 -0800 |
| commit | e2ca569edb67a22f6462e37bfcb6224f70b4416a (patch) | |
| tree | d4d4b63c549b1c4060e39667ba6d0fbb2692d2ac /vutil.c | |
| parent | 05402f6b212ae526674299c1c22151299db21ebb (diff) | |
| download | perl-e2ca569edb67a22f6462e37bfcb6224f70b4416a.tar.gz | |
Explicit ENTER/LEAVE block for upg_version
Diffstat (limited to 'vutil.c')
| -rw-r--r-- | vutil.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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; } |