From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 7 Apr 2006 12:49:11 +0000 (+0000)
Subject: Oops. Being too terse for my own good - it's not a great idea to chain
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6c3f0a8911637874000656a4fad5fb7ce04a2751;p=p5sagit%2Fp5-mst-13.2.git

Oops. Being too terse for my own good - it's not a great idea to chain
assignment of char * to struct pmop *, even when the value is NULL.

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

diff --git a/perl.c b/perl.c
index 8278442..1045c73 100644
--- a/perl.c
+++ b/perl.c
@@ -3474,7 +3474,8 @@ S_init_interp(pTHX)
     /* As these are inside a structure, PERLVARI isn't capable of initialising
        them  */
     PL_regindent = 0;
-    PL_reg_oldcurpm = PL_reg_curpm = PL_reg_poscache = PL_reg_starttry = NULL;
+    PL_reg_oldcurpm = PL_reg_curpm = NULL;
+    PL_reg_poscache = PL_reg_starttry = NULL;
 }
 
 STATIC void