This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pp.c warns that sv may be used uninitialised in pp_delete()
authorHugo van der Sanden <hv@crypt.org>
Sat, 17 Aug 2002 01:17:09 +0000 (01:17 +0000)
committerhv <hv@crypt.org>
Sat, 17 Aug 2002 01:17:09 +0000 (01:17 +0000)
p4raw-id: //depot/perl@17726

pp.c

diff --git a/pp.c b/pp.c
index 322e464..06a78a4 100644 (file)
--- 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");