Add extra scope block for switch case (fix g++)

[perl5.git] / peep.c

diff --git a/peep.c b/peep.c
index 32fa401..ec89797 100644 (file)
--- a/peep.c
+++ b/peep.c
@@ -3799,7 +3799,7 @@ Perl_rpeep(pTHX_ OP *o)
             }
             break;
 
-        case OP_SASSIGN:
+        case OP_SASSIGN: {
             if (OP_GIMME(o,0) == G_VOID
              || (  o->op_next->op_type == OP_LINESEQ
                 && (  o->op_next->op_next->op_type == OP_LEAVESUB
@@ -3893,6 +3893,7 @@ Perl_rpeep(pTHX_ OP *o)
                 oldoldop = NULL; oldop = NULL;
             }
             break;
+        }
 
         case OP_AASSIGN: {
             int l, r, lr, lscalars, rscalars;