[perl #78908] Reinstate mod for one more stable release

1 files changed, 8 insertions, 0 deletions

diff --git a/op.c b/op.c
index 2da3db43d0..53641c7a8d 100644
--- a/op.c
+++ b/op.c
@@ -1784,6 +1784,14 @@ Perl_op_lvalue(pTHX_ OP *o, I32 type)
     return o;
 }
 
+/* Do not use this. It will be removed after 5.14. */
+OP *
+Perl_mod(pTHX_ OP *o, I32 type)
+{
+    return op_lvalue(o,type);
+}
+
+
 STATIC bool
 S_scalar_mod_type(const OP *o, I32 type)
 {