| … | |
… | |
| 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); |
