| … | |
… | |
| 570 | |
570 | |
| 571 | while (i > 0) /* special-case index 0 */ |
571 | while (i > 0) /* special-case index 0 */ |
| 572 | { |
572 | { |
| 573 | /* we try to be extra-careful here */ |
573 | /* we try to be extra-careful here */ |
| 574 | PAD *pad = PadlistARRAY (padlist)[i--]; |
574 | PAD *pad = PadlistARRAY (padlist)[i--]; |
|
|
575 | |
|
|
576 | if (pad) |
|
|
577 | { |
| 575 | I32 j = PadMAX (pad); |
578 | I32 j = PadMAX (pad); |
| 576 | |
579 | |
| 577 | while (j >= 0) |
580 | while (j >= 0) |
| 578 | SvREFCNT_dec (PadARRAY (pad)[j--]); |
581 | SvREFCNT_dec (PadARRAY (pad)[j--]); |
| 579 | |
582 | |
| 580 | PadMAX (pad) = -1; |
583 | PadMAX (pad) = -1; |
| 581 | SvREFCNT_dec (pad); |
584 | SvREFCNT_dec (pad); |
|
|
585 | } |
| 582 | } |
586 | } |
| 583 | |
587 | |
| 584 | SvREFCNT_dec (PadlistNAMES (padlist)); |
588 | SvREFCNT_dec (PadlistNAMES (padlist)); |
| 585 | |
589 | |
| 586 | #if NEWPADAPI |
590 | #if NEWPADAPI |
