This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
op.c: dump LABEL leaks its label
[perl5.git] / op.c
diff --git a/op.c b/op.c
index c818739..28fc225 100644 (file)
--- a/op.c
+++ b/op.c
@@ -808,6 +808,7 @@ Perl_op_clear(pTHX_ OP *o)
         }
 #endif
        break;
         }
 #endif
        break;
+    case OP_DUMP:
     case OP_GOTO:
     case OP_NEXT:
     case OP_LAST:
     case OP_GOTO:
     case OP_NEXT:
     case OP_LAST: