pp.c warns that sv may be used uninitialised in pp_delete()

p4raw-id: //depot/perl@17726

1 files changed, 2 insertions, 0 deletions

diff --git a/pp.c b/pp.c
index 322e464753..06a78a4baa 100644
--- a/pp.c
+++ b/pp.c
@@ -3763,6 +3763,8 @@ PP(pp_delete)
 	else if (SvTYPE(hv) == SVt_PVAV) {
 	    if (PL_op->op_flags & OPf_SPECIAL)
 		sv = av_delete((AV*)hv, SvIV(keysv), discard);
+	    else
+		DIE(aTHX_ "panic: avhv_delete no longer supported");
 	}
 	else
 	    DIE(aTHX_ "Not a HASH reference");