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 (file)
--- 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;
     }