[ID 20000808.005] OP_REFGEN as an lvalue

Message-ID: <14959.59703.507462.978833@soda.csua.berkeley.edu>

p4raw-id: //depot/perl@8563

diff --git a/op.c b/op.c
index 6729ca0..95a72fc 100644 (file)
--- a/op.c
+++ b/op.c
@@ -1568,7 +1568,6 @@ Perl_mod(pTHX_ OP *o, I32 type)
     case OP_AASSIGN:
     case OP_NEXTSTATE:
     case OP_DBSTATE:
-    case OP_REFGEN:
     case OP_CHOMP:
        PL_modcount = RETURN_UNLIMITED_NUMBER;
        break;