undo goofed change 1157 (backed out the fix instead of keeping it)

[p5sagit/p5-mst-13.2.git] / proto.h

diff --git a/proto.h b/proto.h
index 4467dde..d7b7762 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -205,7 +205,6 @@ VIRTUAL I32 ibcmp _((char* a, char* b, I32 len));
 VIRTUAL I32    ibcmp_locale _((char* a, char* b, I32 len));
 VIRTUAL I32    ingroup _((I32 testgid, I32 effective));
 VIRTUAL void   init_stacks _((ARGSproto));
-VIRTUAL void   install_tryblock_method _((tryblock_f fn));
 VIRTUAL U32    intro_my _((void));
 VIRTUAL char*  instr _((char* big, char* little));
 VIRTUAL bool   io_close _((IO* io));
@@ -270,7 +269,6 @@ VIRTUAL int magic_setuvar   _((SV* sv, MAGIC* mg));
 VIRTUAL int    magic_setvec    _((SV* sv, MAGIC* mg));
 VIRTUAL int    magic_set_all_env _((SV* sv, MAGIC* mg));
 VIRTUAL U32    magic_sizepack  _((SV* sv, MAGIC* mg));
-VIRTUAL int    magic_unchain   _((SV* sv, MAGIC* mg));
 VIRTUAL int    magic_wipepack  _((SV* sv, MAGIC* mg));
 VIRTUAL void   magicname _((char* sym, char* name, I32 namlen));
 int    main _((int argc, char** argv, char** env));
@@ -838,6 +836,7 @@ void *bset_obj_store _((void *obj, I32 ix));
 OP *new_logop _((I32 type, I32 flags, OP **firstp, OP **otherp));
 
 #define PPDEF(s) OP* CPerlObj::s _((ARGSproto));
+public:
 
 PPDEF(pp_aassign)
 PPDEF(pp_abs)
@@ -1233,9 +1232,6 @@ VIRTUAL int&      ErrorNo _((void));
 END_EXTERN_C
 #endif /* PERL_OBJECT */
 
-#ifdef PERL_OBJECT
-public:
-#endif
 #ifdef INDIRECT_BGET_MACROS
 VIRTUAL void byterun _((struct bytestream bs));
 #else