s/last/first/ typo in append_list()

p4raw-id: //depot/perl@1974

diff --git a/op.c b/op.c
index eb4856e..0ad5650 100644 (file)
--- a/op.c
+++ b/op.c
@@ -1917,7 +1917,7 @@ append_list(I32 type, LISTOP *first, LISTOP *last)
     first->op_last = last->op_last;
     first->op_children += last->op_children;
     if (first->op_children)
-       last->op_flags |= OPf_KIDS;
+       first->op_flags |= OPf_KIDS;
 
     Safefree(last);
     return (OP*)first;