This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Oops. Being too terse for my own good - it's not a great idea to chain
authorNicholas Clark <nick@ccl4.org>
Fri, 7 Apr 2006 12:49:11 +0000 (12:49 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 7 Apr 2006 12:49:11 +0000 (12:49 +0000)
assignment of char * to struct pmop *, even when the value is NULL.

p4raw-id: //depot/perl@27734

perl.c

diff --git a/perl.c b/perl.c
index 8278442..1045c73 100644 (file)
--- 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