X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=proto.h;h=e41659eff4f084526a5c5ddd5d2e5d4895f900c4;hb=5383bea48295157ec239aaa7b40cfb64d93bf734;hp=bb9161562714d9b2047a7d6766f142645f54a55c;hpb=d36b65820b6b5e1d5ddb96186c8b7aa0b6e2ce9f;p=p5sagit%2Fp5-mst-13.2.git diff --git a/proto.h b/proto.h index bb91615..e41659e 100644 --- a/proto.h +++ b/proto.h @@ -799,6 +799,7 @@ PERL_CALLCONV void Perl_vivify_ref(pTHX_ SV* sv, U32 to_what); PERL_CALLCONV I32 Perl_wait4pid(pTHX_ Pid_t pid, int* statusp, int flags); PERL_CALLCONV U32 Perl_parse_unicode_opts(pTHX_ char **popt); PERL_CALLCONV U32 Perl_seed(pTHX); +PERL_CALLCONV UV Perl_get_hash_seed(pTHX); PERL_CALLCONV void Perl_report_evil_fh(pTHX_ GV *gv, IO *io, I32 op); PERL_CALLCONV void Perl_report_uninit(pTHX); PERL_CALLCONV void Perl_warn(pTHX_ const char* pat, ...) @@ -1330,6 +1331,7 @@ PERL_CALLCONV void Perl_free_tied_hv_pool(pTHX); #if defined(DEBUGGING) PERL_CALLCONV int Perl_get_debug_opts(pTHX_ char **s); #endif +PERL_CALLCONV void Perl_save_set_svflags(pTHX_ SV* sv, U32 mask, U32 val);