Replace the 3 currently "unreachable" ops with a single op body

unimplemented_op() that panics descriptively if ever reached.

p4raw-id: //depot/perl@25937

1 files changed, 7 insertions, 0 deletions

diff --git a/pp.c b/pp.c
index 8ae5a075c2..ddffda824c 100644
--- a/pp.c
+++ b/pp.c
@@ -4785,6 +4785,13 @@ PP(pp_lock)
     RETURN;
 }
 
+
+PP(unimplemented_op)
+{
+    DIE(aTHX_ "panic: unimplemented op %s (#%d) called", OP_NAME(PL_op),
+	PL_op->op_type);
+}
+
 /*
  * Local variables:
  * c-indentation-style: bsd