Coverity still thinks that there is a route through do_vop that can

leak resources. I believe that it's spotted that you can skip all the
cases in the switch. Plug that hole.

p4raw-id: //depot/perl@27883

1 files changed, 5 insertions, 0 deletions

diff --git a/doop.c b/doop.c
index 08b6c230a7..202e320b3c 100644
--- a/doop.c
+++ b/doop.c
@@ -1282,6 +1282,11 @@ Perl_do_vop(pTHX_ I32 optype, SV *sv, SV *left, SV *right)
 		*SvEND(sv) = '\0';
 	    Safefree(dcsave);
 	    break;
+	default:
+	    if (sv == left || sv == right)
+		Safefree(dcorig);
+	    Perl_croak(aTHX_ "panic: do_vop called for op %u (%s)", optype,
+		       PL_op_name[optype]);
 	}
 	SvUTF8_on(sv);
 	goto finish;