don't longjmp() in pp_goto() (regressive bug from old single-stack

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

diff --git a/proto.h b/proto.h
index 1c33f78..e0befbd 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -118,17 +118,18 @@ VIRTUAL void      do_pipe _((SV* sv, GV* rgv, GV* wgv));
 VIRTUAL bool   do_print _((SV* sv, PerlIO* fp));
 VIRTUAL OP*    do_readline _((void));
 VIRTUAL I32    do_chomp _((SV* sv));
-VIRTUAL bool   do_seek _((GV* gv, long pos, int whence));
+VIRTUAL bool   do_seek _((GV* gv, Off_t pos, int whence));
 #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
 I32    do_semop _((SV** mark, SV** sp));
 I32    do_shmio _((I32 optype, SV** mark, SV** sp));
 #endif
 VIRTUAL void   do_sprintf _((SV* sv, I32 len, SV** sarg));
-VIRTUAL long   do_sysseek _((GV* gv, long pos, int whence));
-VIRTUAL long   do_tell _((GV* gv));
+VIRTUAL Off_t  do_sysseek _((GV* gv, Off_t pos, int whence));
+VIRTUAL Off_t  do_tell _((GV* gv));
 VIRTUAL I32    do_trans _((SV* sv));
 VIRTUAL void   do_vecset _((SV* sv));
 VIRTUAL void   do_vop _((I32 optype, SV* sv, SV* left, SV* right));
+VIRTUAL OP*    dofile _((OP* term));
 VIRTUAL I32    dowantarray _((void));
 VIRTUAL void   dump_all _((void));
 VIRTUAL void   dump_eval _((void));
@@ -832,6 +833,7 @@ void nuke_stacks _((void));
 void open_script _((char *, bool, SV *, int *fd));
 void usage _((char *));
 void validate_suid _((char *, char*, int));
+int emulate_eaccess _((const char* path, int mode));
 
 regnode *reg _((I32, I32 *));
 regnode *reganode _((U8, U32));