|
|
2bb84c |
From c286e6d3aa2ecfc311027427c95607ceccb85fae Mon Sep 17 00:00:00 2001
|
|
|
2bb84c |
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
|
|
|
2bb84c |
Date: Tue, 27 Sep 2016 15:56:59 +0200
|
|
|
2bb84c |
Subject: [PATCH 1/2] Deal with certain tiedscalars (e.g. created by
|
|
|
2bb84c |
Readonly::XS)
|
|
|
2bb84c |
MIME-Version: 1.0
|
|
|
2bb84c |
Content-Type: text/plain; charset=UTF-8
|
|
|
2bb84c |
Content-Transfer-Encoding: 8bit
|
|
|
2bb84c |
|
|
|
2bb84c |
Upstream commit:
|
|
|
2bb84c |
|
|
|
2bb84c |
changeset: 480:efb44fbc6bd8
|
|
|
2bb84c |
user: John Peacock <john.peacock@havurah-software.org>
|
|
|
2bb84c |
date: Sat Feb 01 13:30:16 2014 -0500
|
|
|
2bb84c |
summary: Deal with certain tiedscalars (e.g. created by Readonly::XS).
|
|
|
2bb84c |
|
|
|
2bb84c |
ported from 0.9908 to 0.9907.
|
|
|
2bb84c |
|
|
|
2bb84c |
This is necessary to accept tainted input on perl older than 5.17.2.
|
|
|
2bb84c |
|
|
|
2bb84c |
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
|
|
2bb84c |
---
|
|
|
2bb84c |
vutil/vutil.c | 12 ++++++++++--
|
|
|
2bb84c |
1 file changed, 10 insertions(+), 2 deletions(-)
|
|
|
2bb84c |
|
|
|
2bb84c |
diff --git a/vutil/vutil.c b/vutil/vutil.c
|
|
|
2bb84c |
index 7979c49..c5edb10 100644
|
|
|
2bb84c |
--- a/vutil/vutil.c
|
|
|
2bb84c |
+++ b/vutil/vutil.c
|
|
|
2bb84c |
@@ -555,7 +555,11 @@ Perl_upg_version(pTHX_ SV *ver, bool qv)
|
|
|
2bb84c |
|
|
|
2bb84c |
PERL_ARGS_ASSERT_UPG_VERSION;
|
|
|
2bb84c |
|
|
|
2bb84c |
- if ( SvNOK(ver) && !( SvPOK(ver) && SvCUR(ver) == 3 ) )
|
|
|
2bb84c |
+ if ( ( SvNOK(ver)
|
|
|
2bb84c |
+#if PERL_VERSION_LT(5,17,2)
|
|
|
2bb84c |
+ || (SvTYPE(ver) == SVt_PVMG && SvNOKp(ver))
|
|
|
2bb84c |
+#endif
|
|
|
2bb84c |
+ ) && !( SvPOK(ver) && SvCUR(ver) == 3 ) )
|
|
|
2bb84c |
{
|
|
|
2bb84c |
STRLEN len;
|
|
|
2bb84c |
|
|
|
2bb84c |
@@ -602,7 +606,11 @@ Perl_upg_version(pTHX_ SV *ver, bool qv)
|
|
|
2bb84c |
version = savesvpv(ver);
|
|
|
2bb84c |
SAVEFREEPV(version);
|
|
|
2bb84c |
}
|
|
|
2bb84c |
- else if ( SvPOK(ver) )/* must be a string or something like a string */
|
|
|
2bb84c |
+ else if ( SvPOK(ver)
|
|
|
2bb84c |
+#if PERL_VERSION_LT(5,17,2)
|
|
|
2bb84c |
+ || (SvTYPE(ver) == SVt_PVMG && SvPOKp(ver))
|
|
|
2bb84c |
+#endif
|
|
|
2bb84c |
+ )/* must be a string or something like a string */
|
|
|
2bb84c |
{
|
|
|
2bb84c |
STRLEN len;
|
|
|
2bb84c |
version = savepvn(SvPV(ver,len), SvCUR(ver));
|
|
|
2bb84c |
--
|
|
|
2bb84c |
2.7.4
|
|
|
2bb84c |
|