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

1 files changed, 1 insertions, 0 deletions

diff --git a/proto.h b/proto.h
index f91e80bc5b..7e3d4c5862 100644
--- a/proto.h
+++ b/proto.h
@@ -894,6 +894,7 @@ void debprof _((OP *o));
 void *bset_obj_store _((void *obj, I32 ix));
 OP *new_logop _((I32 type, I32 flags, OP **firstp, OP **otherp));
 void simplify_sort _((OP *o));
+bool is_handle_constructor _((OP *o, I32 argnum));
 
 I32 do_trans_CC_simple _((SV *sv));
 I32 do_trans_CC_count _((SV *sv));