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

diff --git a/proto.h b/proto.h
index 083290c..d7b7762 100644
--- a/proto.h
+++ b/proto.h
@@ -358,6 +358,7 @@ VIRTUAL OP*	newSVOP _((I32 type, I32 flags, SV* sv));
 VIRTUAL SV*	newSViv _((IV i));
 VIRTUAL SV*	newSVnv _((double n));
 VIRTUAL SV*	newSVpv _((char* s, STRLEN len));
+VIRTUAL SV*	newSVpvn _((char *s, STRLEN len));
 VIRTUAL SV*	newSVpvf _((const char* pat, ...));
 VIRTUAL SV*	newSVrv _((SV* rv, char* classname));
 VIRTUAL SV*	newSVsv _((SV* old));
@@ -672,7 +673,6 @@ void sv_mortalgrow _((void));
 void sv_unglob _((SV* sv));
 void sv_check_thinkfirst _((SV *sv));
 
-SV *newSVpvn _((char *s, STRLEN len));
 
 void sv_catpv_mg _((SV *sv, char *ptr));
 void sv_catpvf_mg _((SV *sv, const char* pat, ...));
@@ -836,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)
@@ -1231,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