proto.h change to make byterun() visible to VMS

	Message-Id: <3.0.5.32.19980601122229.00a58420@ous.edu>

p4raw-id: //depot/perl@1091

diff --git a/proto.h b/proto.h
index 093bc1e..083290c 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -836,12 +836,6 @@ 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:
-#ifdef INDIRECT_BGET_MACROS
-VIRTUAL void byterun _((struct bytestream bs));
-#else
-VIRTUAL void byterun _((PerlIO *fp));
-#endif /* INDIRECT_BGET_MACROS */
 
 PPDEF(pp_aassign)
 PPDEF(pp_abs)
@@ -1237,3 +1231,12 @@ 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
+VIRTUAL void byterun _((PerlIO *fp));
+#endif /* INDIRECT_BGET_MACROS */
+