summaryrefslogtreecommitdiff
path: root/objXSUB.h
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-02-12 05:39:29 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-02-12 05:39:29 +0000
commit35cd451c5a1303394968903750cc3b3a1a6bc892 (patch)
tree0dff9ce049b3cd7facf6fbfd54dcddddc8ac0990 /objXSUB.h
parentcf34019797138569fd71cfc48bb60249b9df0ec3 (diff)
downloadperl-35cd451c5a1303394968903750cc3b3a1a6bc892.tar.gz
fix ops that are not filehandle constructors to not create GV if it
doesn't already exist (avoids leaks); extend semantics of defined() so that defined(*{$foo}) works (experimental) p4raw-id: //depot/perl@2879
Diffstat (limited to 'objXSUB.h')
-rw-r--r--objXSUB.h2
1 files changed, 2 insertions, 0 deletions
diff --git a/objXSUB.h b/objXSUB.h
index 0c4efd5456..8138d0df00 100644
--- a/objXSUB.h
+++ b/objXSUB.h
@@ -1387,6 +1387,8 @@
#define io_close pPerl->Perl_io_close
#undef is_an_int
#define is_an_int pPerl->Perl_is_an_int
+#undef is_handle_constructor
+#define is_handle_constructor pPerl->Perl_is_handle_constructor
#undef is_uni_alnum
#define is_uni_alnum pPerl->Perl_is_uni_alnum
#undef is_uni_alnum_lc