This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: odd (or not so odd?) segmentation fault in 5.8.0
authorYitzchak Scott-Thoennes <sthoenna@efn.org>
Fri, 7 Mar 2003 13:12:49 +0000 (05:12 -0800)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 10 Mar 2003 19:55:06 +0000 (19:55 +0000)
Message-ID: <RtQa+gzkg2kF092yn@efn.org>

p4raw-id: //depot/perl@18889

mg.c
pod/perldiag.pod
t/op/tie.t

diff --git a/mg.c b/mg.c
index 941338b..98e4c09 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -133,6 +133,12 @@ Perl_mg_get(pTHX_ SV *sv)
 
        if (!(mg->mg_flags & MGf_GSKIP) && vtbl && vtbl->svt_get) {
            CALL_FPTR(vtbl->svt_get)(aTHX_ sv, mg);
 
        if (!(mg->mg_flags & MGf_GSKIP) && vtbl && vtbl->svt_get) {
            CALL_FPTR(vtbl->svt_get)(aTHX_ sv, mg);
+
+           /* guard against sv having been freed */
+           if (SvTYPE(sv) == SVTYPEMASK) {
+               Perl_croak(aTHX_ "Tied variable freed while still in use");
+           }
+
            /* Don't restore the flags for this entry if it was deleted. */
            if (mg->mg_flags & MGf_GSKIP)
                (SSPTR(mgs_ix, MGS *))->mgs_flags = 0;
            /* Don't restore the flags for this entry if it was deleted. */
            if (mg->mg_flags & MGf_GSKIP)
                (SSPTR(mgs_ix, MGS *))->mgs_flags = 0;
index 3881288..cb314e9 100644 (file)
@@ -3672,6 +3672,12 @@ target of the change to
 
 (F) The entry point function of threads->create() failed for some reason.
 
 
 (F) The entry point function of threads->create() failed for some reason.
 
+=item Tied variable freed while still in use
+
+(F) An access method for a tied variable (e.g. FETCH) did something to
+free the variable.  Since continuing the current operation is likely
+to result in a coredump, Perl is bailing out instead.
+
 =item times not implemented
 
 (F) Your version of the C library apparently doesn't do times().  I
 =item times not implemented
 
 (F) Your version of the C library apparently doesn't do times().  I
index 6e73cee..49c189e 100755 (executable)
@@ -286,3 +286,12 @@ EXPECT
 7
 8
 0
 7
 8
 0
+########
+#
+# FETCH freeing tie'd SV
+sub TIESCALAR { bless [] }
+sub FETCH { *a = \1; 1 }
+tie $a, 'main';
+print $a;
+EXPECT
+Tied variable freed while still in use at - line 6.