X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=proto.h;h=d7b7762d10609bf55712cccdffb11e727378da7c;hb=249edfdff1b2b750e894ee5a0b6cb64d2640ca02;hp=2356e688520fe57130417adf3d1ed023e598537f;hpb=6224f72bf639f0ca7f774fe2738f2408b3e430ac;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/proto.h b/proto.h
index 2356e68..d7b7762 100644
--- a/proto.h
+++ b/proto.h
@@ -269,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));
@@ -837,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)
@@ -1232,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