diff options
author | Dave Mitchell <davem@fdisolutions.com> | 2003-02-26 14:49:47 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-05-29 18:47:40 +0000 |
commit | b5c19bd7c15bd02a18c3c2b80b6f602827ecdbcc (patch) | |
tree | 62bd6c218608670924b1f52603773478868e7f69 /proto.h | |
parent | d3f88289ec6f15b80a5a99970a0ca8fd4c679869 (diff) | |
download | perl-b5c19bd7c15bd02a18c3c2b80b6f602827ecdbcc.tar.gz |
jumbo closure fix
Message-ID: <20030226144947.A14444@fdgroup.com>
p4raw-id: //depot/perl@19637
Diffstat (limited to 'proto.h')
-rw-r--r-- | proto.h | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -1317,11 +1317,10 @@ PERL_CALLCONV void Perl_pad_fixup_inner_anons(pTHX_ PADLIST *padlist, CV *old_cv PERL_CALLCONV void Perl_pad_push(pTHX_ PADLIST *padlist, int depth, int has_args); #if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT) -STATIC PADOFFSET S_pad_findlex(pTHX_ char* name, PADOFFSET newoff, CV* innercv); +STATIC PADOFFSET S_pad_findlex(pTHX_ char *name, CV* cv, U32 seq, int warn, SV** out_capture, SV** out_name_sv, int *out_flags); # if defined(DEBUGGING) STATIC void S_cv_dump(pTHX_ CV *cv, char *title); # endif -STATIC CV* S_cv_clone2(pTHX_ CV *proto, CV *outside); #endif PERL_CALLCONV CV* Perl_find_runcv(pTHX_ U32 *db_seqp); PERL_CALLCONV void Perl_free_tied_hv_pool(pTHX); |