[perl #127334] S_incline: avoid overrunning the end of the parse buffer

[perl5.git] / dump.c

diff --git a/dump.c b/dump.c
index 81b985f..bc2776a 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -968,6 +968,7 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, const OP *o)
         for (i=0; i < count;  i++)
             Perl_dump_indent(aTHX_ level+1, file, "%"UVuf" => 0x%"UVxf"\n",
                                     i, items[i].uv);
+       break;
     }
 
     case OP_CONST: