Change 27475 by [EMAIL PROTECTED] on 2006/03/11 20:57:26
Keep from using a variable in S_my_kid() before it is initialized.
This was introduced with the MAD changes.
Affected files ...
... //depot/perl/op.c#783 edit
Differences ...
==== //depot/perl/op.c#783 (text) ====
Index: perl/op.c
--- perl/op.c#782~27436~ 2006-03-09 04:54:19.000000000 -0800
+++ perl/op.c 2006-03-11 12:57:26.000000000 -0800
@@ -1745,12 +1745,13 @@
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)
End of Patch.
