summaryrefslogtreecommitdiff
path: root/vutil.c
diff options
context:
space:
mode:
authorJohn Peacock <john.peacock@havurah-software.org>2014-02-03 07:48:57 -0500
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>2014-02-03 13:07:56 +0000
commitd2b110e6a5467455bc4a3d333ec4f1abc5383bd8 (patch)
treecec99ae085f694aab049ad0fc95aca7e696dbfce /vutil.c
parent3c075feabc1b777553a63a5a7d87ef482f2e3d49 (diff)
downloadperl-d2b110e6a5467455bc4a3d333ec4f1abc5383bd8.tar.gz
Sync bleadperl to version.pm 0.9908
Attached is a patch to bring blead up to date with the latest CPAN release of version.pm 0.9908. All tests pass (except the expected porting/customized.t). I'm hopeful that this will be the last update for a while. Thanks to Daniel Dragan for his insistent prodding to improve the code. ;-) Thanks John >From c501530aa386a3ccbdb35bcccbccd35d70315651 Mon Sep 17 00:00:00 2001 From: John Peacock <jpeacock@cpan.org> Date: Sun, 2 Feb 2014 11:57:44 -0500 Subject: [PATCH] Update bleadperl to CPAN 0.9908 release Signed-off-by: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
Diffstat (limited to 'vutil.c')
-rw-r--r--vutil.c5
1 files changed, 5 insertions, 0 deletions
diff --git a/vutil.c b/vutil.c
index 96aa6f63ad..4cf0173548 100644
--- a/vutil.c
+++ b/vutil.c
@@ -553,7 +553,9 @@ Perl_upg_version(pTHX_ SV *ver, bool qv)
const MAGIC *mg;
#endif
+#if PERL_VERSION_LT(5,19,8) && defined(USE_ITHREADS)
ENTER;
+#endif
PERL_ARGS_ASSERT_UPG_VERSION;
if ( SvNOK(ver) && !( SvPOK(ver) && SvCUR(ver) == 3 ) )
@@ -656,7 +658,10 @@ 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);
+
+#if PERL_VERSION_LT(5,19,8) && defined(USE_ITHREADS)
LEAVE;
+#endif
return ver;
}