From e7f343b6de977b5993b7a5a4707f5051ea388ff2 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 11 Jun 2006 20:52:36 +0000
Subject: A little more work needed to get ext/re/t/re.t test 14 (no segv)
 passing with PERL_DESTRUCT_LEVEL=2.

p4raw-id: //depot/perl@28378
---
 gv.c | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'gv.c')

diff --git a/gv.c b/gv.c
index 746b2bb35a..1c8d981741 100644
--- a/gv.c
+++ b/gv.c
@@ -943,10 +943,16 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags,
 		  : sv_type == SVt_PVAV ? "@"
 		  : sv_type == SVt_PVHV ? "%"
 		  : ""), name);
+	    GV *gv;
 	    if (USE_UTF8_IN_NAMES)
 		SvUTF8_on(err);
 	    qerror(err);
-	    stash = GvHV(gv_fetchpvn_flags("<none>::", 8, GV_ADDMULTI, SVt_PVHV));
+	    gv = gv_fetchpvn_flags("<none>::", 8, GV_ADDMULTI, SVt_PVHV);
+	    if(!gv) {
+		/* symbol table under destruction */
+		return NULL;
+	    }	
+	    stash = GvHV(gv);
 	}
 	else
 	    return NULL;
-- 
cgit v1.2.1