| … | |
… | |
| 515 | PAD *newpad; |
515 | PAD *newpad; |
| 516 | PADOFFSET off = PadlistMAX (padlist) + 1; |
516 | PADOFFSET off = PadlistMAX (padlist) + 1; |
| 517 | |
517 | |
| 518 | #if NEWPADAPI |
518 | #if NEWPADAPI |
| 519 | |
519 | |
|
|
520 | /* if we had the original CvDEPTH, we might be able to steal the CvDEPTH+1 entry instead */ |
|
|
521 | /* 20131102194744.GA6705@schmorp.de, 20131102195825.2013.qmail@lists-nntp.develooper.com */ |
| 520 | while (!PadlistARRAY (padlist)[off - 1]) |
522 | while (!PadlistARRAY (padlist)[off - 1]) |
| 521 | --off; |
523 | --off; |
| 522 | |
524 | |
| 523 | Perl_pad_push (aTHX_ padlist, off); |
525 | Perl_pad_push (aTHX_ padlist, off); |
| 524 | |
526 | |
