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