int delim, I32* retlen));
VIRTUAL void deprecate _((char* s));
VIRTUAL OP* die _((const char* pat,...));
-VIRTUAL OP* die_where _((char* message));
+VIRTUAL OP* die_where _((char* message, STRLEN msglen));
VIRTUAL void dounwind _((I32 cxix));
VIRTUAL bool do_aexec _((SV* really, SV** mark, SV** sp));
VIRTUAL int do_binmode _((PerlIO *fp, int iotype, int flag));
VIRTUAL char* form _((const char* pat, ...));
VIRTUAL void free_tmps _((void));
VIRTUAL OP* gen_constant_list _((OP* o));
+#ifndef HAS_GETENV_SV
+VIRTUAL SV* getenv_sv _((char* key));
+#endif
VIRTUAL void gp_free _((GV* gv));
VIRTUAL GP* gp_ref _((GP* gp));
VIRTUAL GV* gv_AVadd _((GV* gv));
#ifdef USE_LOCALE_COLLATE
VIRTUAL char* mem_collxfrm _((const char* s, STRLEN len, STRLEN* xlen));
#endif
-VIRTUAL char* mess _((const char* pat, va_list* args));
+VIRTUAL SV* mess _((const char* pat, va_list* args));
VIRTUAL int mg_clear _((SV* sv));
VIRTUAL int mg_copy _((SV* sv, SV* nsv, const char* key, I32 klen));
VIRTUAL MAGIC* mg_find _((SV* sv, int type));
I32 dopoptosub_at _((PERL_CONTEXT* cxstk, I32 startingblock));
void save_lines _((AV *array, SV *sv));
OP *doeval _((int gimme, OP** startop));
+PerlIO *doopen _((const char *name, const char *mode));
I32 sv_ncmp _((SV *a, SV *b));
I32 sv_i_ncmp _((SV *a, SV *b));
I32 amagic_ncmp _((SV *a, SV *b));