s/last/first/ typo in append_list()

p4raw-id: //depot/perl@1974

1 files changed, 1 insertions, 1 deletions

diff --git a/op.c b/op.c
index eb4856e0bc..0ad56507ea 100644
--- 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;