diff options
| author | Gisle Aas <gisle@aas.no> | 1998-06-30 15:34:07 +0200 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-04 02:53:26 +0000 |
| commit | 57079c468e190b483eeed1dc905fcaa88d70475e (patch) | |
| tree | 142f286d1dd853167dbad2277eb85f422a634489 /pp.c | |
| parent | 0a528a3542746230f4fc096636f17a8e901151fc (diff) | |
| download | perl-57079c468e190b483eeed1dc905fcaa88d70475e.tar.gz | |
applied patch with tweaks to prose
Subject: [PATCH] Simplified AVHV support
Message-ID: <m3k95z86og.fsf@furu.g.aas.no>
p4raw-id: //depot/perl@1286
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 4 |
1 files changed, 0 insertions, 4 deletions
@@ -2358,8 +2358,6 @@ PP(pp_delete) while (++MARK <= SP) { if (hvtype == SVt_PVHV) sv = hv_delete_ent(hv, *MARK, discard, 0); - else if (hvtype == SVt_PVAV) - sv = avhv_delete_ent((AV*)hv, *MARK, discard, 0); else DIE("Not a HASH reference"); *MARK = sv ? sv : &sv_undef; @@ -2377,8 +2375,6 @@ PP(pp_delete) hv = (HV*)POPs; if (SvTYPE(hv) == SVt_PVHV) sv = hv_delete_ent(hv, keysv, discard, 0); - else if (SvTYPE(hv) == SVt_PVAV) - sv = avhv_delete_ent((AV*)hv, keysv, discard, 0); else DIE("Not a HASH reference"); if (!sv) |