add verbose stack display option, -Dvs

[p5sagit/p5-mst-13.2.git] / op.c

diff --git a/op.c b/op.c
index 82fe5b9..75cff4b 100644 (file)
--- a/op.c
+++ b/op.c
@@ -1613,7 +1613,6 @@ Perl_mod(pTHX_ OP *o, I32 type)
     case OP_AASSIGN:
     case OP_NEXTSTATE:
     case OP_DBSTATE:
-    case OP_CHOMP:
        PL_modcount = RETURN_UNLIMITED_NUMBER;
        break;
     case OP_RV2SV: