From: Steve Peters <steve@fisharerojo.org>
Date: Sat, 11 Mar 2006 20:57:26 +0000 (+0000)
Subject: Keep from using a variable in S_my_kid() before it is initialized.  This        was... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bc61e32505856a259efd811252c6a97691a0b3e3;p=p5sagit%2Fp5-mst-13.2.git

Keep from using a variable in S_my_kid() before it is initialized.  This        was introduced with the MAD changes.

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

diff --git a/op.c b/op.c
index a6a5422..9f91361 100644
--- a/op.c
+++ b/op.c
@@ -1745,12 +1745,13 @@ S_my_kid(pTHX_ OP *o, OP *attrs, OP **imopsp)
     if (!o || PL_error_count)
 	return o;
 
+    type = o->op_type;
+
     if (PL_madskills && type == OP_NULL && o->op_flags & OPf_KIDS) {
 	(void)my_kid(cUNOPo->op_first, attrs, imopsp);
 	return o;
     }
 
-    type = o->op_type;
     if (type == OP_LIST) {
         OP *kid;
 	for (kid = cLISTOPo->op_first; kid; kid = kid->op_sibling)