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;