X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=proto.h;h=b18ec815da09c04334d5b2a761cd9f7f739a8849;hb=612cfdf27c84f3ca36e00ec7f6925d0a5223e483;hp=fd630376e0c7344bcf9b66786970ef57e6b0b134;hpb=f7fe979eb2503f8f9651a18eedcb85278b593375;p=p5sagit%2Fp5-mst-13.2.git diff --git a/proto.h b/proto.h index fd63037..b18ec81 100644 --- a/proto.h +++ b/proto.h @@ -1314,7 +1314,7 @@ PERL_CALLCONV void Perl_do_dump_pad(pTHX_ I32 level, PerlIO *file, PADLIST *padl PERL_CALLCONV void Perl_pad_fixup_inner_anons(pTHX_ PADLIST *padlist, CV *old_cv, CV *new_cv); PERL_CALLCONV void Perl_pad_push(pTHX_ PADLIST *padlist, int depth); -PERL_CALLCONV HV* Perl_pad_compname_type(pTHX_ PADOFFSET po); +PERL_CALLCONV HV* Perl_pad_compname_type(pTHX_ const PADOFFSET po); #if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT) STATIC PADOFFSET S_pad_findlex(pTHX_ const char *name, const CV* cv, U32 seq, int warn, SV** out_capture, SV** out_name_sv, int *out_flags);