summaryrefslogtreecommitdiff
path: root/objXSUB.h
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2000-01-13 06:49:03 +0000
committerGurusamy Sarathy <gsar@cpan.org>2000-01-13 06:49:03 +0000
commit759402ef107193dc01ea7c010c65c7a60cbaf55f (patch)
treec882a2e58a11ea7da9d88e25008bea82fca68ee2 /objXSUB.h
parent55c3b097ddc4383a15319179d1e332e737a5e539 (diff)
downloadperl-759402ef107193dc01ea7c010c65c7a60cbaf55f.tar.gz
support delete() and exists() on array, tied array, and pseudo-hash
elements or slices p4raw-id: //depot/perl@4796
Diffstat (limited to 'objXSUB.h')
-rw-r--r--objXSUB.h12
1 files changed, 12 insertions, 0 deletions
diff --git a/objXSUB.h b/objXSUB.h
index 56895c52e3..035367d417 100644
--- a/objXSUB.h
+++ b/objXSUB.h
@@ -851,6 +851,10 @@
#define Perl_apply pPerl->Perl_apply
#undef apply
#define apply Perl_apply
+#undef Perl_avhv_delete_ent
+#define Perl_avhv_delete_ent pPerl->Perl_avhv_delete_ent
+#undef avhv_delete_ent
+#define avhv_delete_ent Perl_avhv_delete_ent
#undef Perl_avhv_exists_ent
#define Perl_avhv_exists_ent pPerl->Perl_avhv_exists_ent
#undef avhv_exists_ent
@@ -875,6 +879,14 @@
#define Perl_av_clear pPerl->Perl_av_clear
#undef av_clear
#define av_clear Perl_av_clear
+#undef Perl_av_delete
+#define Perl_av_delete pPerl->Perl_av_delete
+#undef av_delete
+#define av_delete Perl_av_delete
+#undef Perl_av_exists
+#define Perl_av_exists pPerl->Perl_av_exists
+#undef av_exists
+#define av_exists Perl_av_exists
#undef Perl_av_extend
#define Perl_av_extend pPerl->Perl_av_extend
#undef av_extend