… | |
… | |
163 | AV *padlist = CvPADLIST (cv); |
163 | AV *padlist = CvPADLIST (cv); |
164 | AV *newpadlist, *newpad; |
164 | AV *newpadlist, *newpad; |
165 | |
165 | |
166 | newpadlist = newAV (); |
166 | newpadlist = newAV (); |
167 | AvREAL_off (newpadlist); |
167 | AvREAL_off (newpadlist); |
|
|
168 | #if PERL_VERSION < 9 |
168 | Perl_pad_push (aTHX_ padlist, AvFILLp (padlist) + 1, 1); |
169 | Perl_pad_push (aTHX_ padlist, AvFILLp (padlist) + 1, 1); |
|
|
170 | #else |
|
|
171 | Perl_pad_push (aTHX_ padlist, AvFILLp (padlist) + 1); |
|
|
172 | #endif |
169 | newpad = (AV *)AvARRAY (padlist)[AvFILLp (padlist)]; |
173 | newpad = (AV *)AvARRAY (padlist)[AvFILLp (padlist)]; |
170 | --AvFILLp (padlist); |
174 | --AvFILLp (padlist); |
171 | |
175 | |
172 | av_store (newpadlist, 0, SvREFCNT_inc (*av_fetch (padlist, 0, FALSE))); |
176 | av_store (newpadlist, 0, SvREFCNT_inc (*av_fetch (padlist, 0, FALSE))); |
173 | av_store (newpadlist, 1, (SV *)newpad); |
177 | av_store (newpadlist, 1, (SV *)newpad); |