diff options
| author | Andy Lester <andy@petdance.com> | 2005-05-01 10:07:55 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-02 15:46:51 +0000 |
| commit | b7787f18a4d9a5b6205453133731406d627268af (patch) | |
| tree | e3c1f3ea3b6da55ec9b061bcd3d168147cdcac30 /pad.c | |
| parent | 2728842dc82a9f71891d065b28cf34767a63fb0c (diff) | |
| download | perl-b7787f18a4d9a5b6205453133731406d627268af.tar.gz | |
printf.patch: Adding printf checking for gcc
Message-ID: <20050501200755.GA30259@petdance.com>
p4raw-id: //depot/perl@24365
Diffstat (limited to 'pad.c')
| -rw-r--r-- | pad.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -1378,7 +1378,6 @@ Perl_cv_clone(pTHX_ CV *proto) SV** ppad = AvARRAY(protopad); const I32 fname = AvFILLp(protopad_name); const I32 fpad = AvFILLp(protopad); - AV* comppadlist; CV* cv; SV** outpad; CV* outside; @@ -1425,7 +1424,7 @@ Perl_cv_clone(pTHX_ CV *proto) if (SvPOK(proto)) sv_setpvn((SV*)cv, SvPVX(proto), SvCUR(proto)); - CvPADLIST(cv) = comppadlist = pad_new(padnew_CLONE|padnew_SAVE); + CvPADLIST(cv) = pad_new(padnew_CLONE|padnew_SAVE); av_fill(PL_comppad, fpad); for (ix = fname; ix >= 0; ix--) |