Fix the line-number-in-elsif longstanding bug.

This patch does two things :
- newSTATEOP now nullifies the state op it
  just created if OPf_SPECIAL is passed to it
  in flags
- the parser now inserts a nullified stateop
  in the expression block of an elsif

p4raw-id: //depot/perl@33710

1 files changed, 2 insertions, 0 deletions

diff --git a/op.c b/op.c
index ba9e2a5a9f..60c1b77a22 100644
--- a/op.c
+++ b/op.c
@@ -4419,6 +4419,8 @@ Perl_newSTATEOP(pTHX_ I32 flags, char *label, OP *o)
 	}
     }
 
+    if (flags & OPf_SPECIAL)
+	op_null((OP*)cop);
     return prepend_elem(OP_LINESEQ, (OP*)cop, o);
 }