|
 |
34484a |
From cb2fda94b02c5b7e8d16582410034f5a3dae526f Mon Sep 17 00:00:00 2001
|
|
|
34484a |
From: Tony Cook <tony@develop-help.com>
|
|
|
34484a |
Date: Tue, 25 Jul 2017 16:21:22 +1000
|
|
|
34484a |
Subject: [PATCH] (perl #131588) be a little more careful in arybase::_tie_it()
|
|
|
34484a |
MIME-Version: 1.0
|
|
|
34484a |
Content-Type: text/plain; charset=UTF-8
|
|
|
34484a |
Content-Transfer-Encoding: 8bit
|
|
|
34484a |
|
|
|
34484a |
Original patch by John Leitch <john@autosectools.com>
|
|
|
34484a |
Petr Pisar: Ported to 5.26.0.
|
|
|
34484a |
|
|
|
34484a |
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
|
|
34484a |
---
|
|
|
34484a |
ext/arybase/arybase.xs | 10 ++++++----
|
|
|
34484a |
ext/arybase/t/arybase.t | 4 +++-
|
|
|
34484a |
2 files changed, 9 insertions(+), 5 deletions(-)
|
|
|
34484a |
|
|
|
34484a |
diff --git a/ext/arybase/arybase.xs b/ext/arybase/arybase.xs
|
|
|
34484a |
index 880bbe3..216442a 100644
|
|
|
34484a |
--- a/ext/arybase/arybase.xs
|
|
|
34484a |
+++ b/ext/arybase/arybase.xs
|
|
|
34484a |
@@ -438,10 +438,12 @@ _tie_it(SV *sv)
|
|
|
34484a |
INIT:
|
|
|
34484a |
GV * const gv = (GV *)sv;
|
|
|
34484a |
CODE:
|
|
|
34484a |
- if (GvSV(gv))
|
|
|
34484a |
- /* This is *our* scalar now! */
|
|
|
34484a |
- sv_unmagic(GvSV(gv), PERL_MAGIC_sv);
|
|
|
34484a |
- tie(aTHX_ GvSVn(gv), NULL, GvSTASH(CvGV(cv)));
|
|
|
34484a |
+ if (isGV(gv)) {
|
|
|
34484a |
+ if (GvSV(gv))
|
|
|
34484a |
+ /* This is *our* scalar now! */
|
|
|
34484a |
+ sv_unmagic(GvSV(gv), PERL_MAGIC_sv);
|
|
|
34484a |
+ tie(aTHX_ GvSVn(gv), NULL, GvSTASH(CvGV(cv)));
|
|
|
34484a |
+ }
|
|
|
34484a |
|
|
|
34484a |
void
|
|
|
34484a |
FETCH(...)
|
|
|
34484a |
diff --git a/ext/arybase/t/arybase.t b/ext/arybase/t/arybase.t
|
|
|
34484a |
index f3d3287..41e90df 100644
|
|
|
34484a |
--- a/ext/arybase/t/arybase.t
|
|
|
34484a |
+++ b/ext/arybase/t/arybase.t
|
|
|
34484a |
@@ -4,7 +4,7 @@
|
|
|
34484a |
# plus miscellaneous bug fix tests
|
|
|
34484a |
|
|
|
34484a |
no warnings 'deprecated';
|
|
|
34484a |
-use Test::More tests => 7;
|
|
|
34484a |
+use Test::More tests => 8;
|
|
|
34484a |
|
|
|
34484a |
sub outside_base_scope { return "${'['}" }
|
|
|
34484a |
|
|
|
34484a |
@@ -34,4 +34,6 @@ is $@, "That use of \$[ is unsupported at $f line $l.\n",
|
|
|
34484a |
|
|
|
34484a |
sub foo { my $x; $x = wait } # compilation of this routine used to crash
|
|
|
34484a |
|
|
|
34484a |
+ok eval { arybase::_tie_it(1); 1 }, "don't crash on bad call to _tie_it()";
|
|
|
34484a |
+
|
|
|
34484a |
1;
|
|
|
34484a |
--
|
|
|
34484a |
2.9.4
|
|
|
34484a |
|