Possible cure for

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

p4raw-id: //depot/perl@17250

1 files changed, 2 insertions, 1 deletions

diff --git a/perl.c b/perl.c
index e4ca5a005e..113d3bdbad 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;
     }