From: Alessandro Forghieri <alf@orion.it>
Date: Sat, 15 Jun 2002 12:56:35 +0000 (+0200)
Subject: Possible cure for
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=47c8db80932508b6333745f2c283d5a98bf9cccb;p=p5sagit%2Fp5-mst-13.2.git

Possible cure for

Subject: Re: Thread bug in 5.8RC1 Win32
Message-ID: <20020615125635.A25110@alpha.orion.it>

p4raw-id: //depot/perl@17250
---

diff --git a/perl.c b/perl.c
index e4ca5a0..113d3bd 100644
--- a/perl.c
+++ b/perl.c
@@ -442,7 +442,8 @@ perl_destruct(pTHXx)
 
     /* Destroy the main CV and syntax tree */
     if (PL_main_root) {
-	PL_curpad = AvARRAY(PL_comppad);
+        /* If running under -d may not have PL_comppad. */
+        PL_curpad = PL_comppad ? AvARRAY(PL_comppad) : NULL;
 	op_free(PL_main_root);
 	PL_main_root = Nullop;
     }