| … | |
… | |
| 184 | sv = (SV *) newAV (); |
184 | sv = (SV *) newAV (); |
| 185 | else if (*name == '%') |
185 | else if (*name == '%') |
| 186 | sv = (SV *) newHV (); |
186 | sv = (SV *) newHV (); |
| 187 | else |
187 | else |
| 188 | sv = NEWSV (0, 0); |
188 | sv = NEWSV (0, 0); |
|
|
189 | #ifdef SvPADBUSY |
| 189 | if (!SvPADBUSY (sv)) |
190 | if (!SvPADBUSY (sv)) |
|
|
191 | #endif |
| 190 | SvPADMY_on (sv); |
192 | SvPADMY_on (sv); |
| 191 | npad[ix] = sv; |
193 | npad[ix] = sv; |
| 192 | } |
194 | } |
| 193 | } |
195 | } |
| 194 | else if (IS_PADGV (ppad[ix]) || IS_PADCONST (ppad[ix])) |
196 | else if (IS_PADGV (ppad[ix]) || IS_PADCONST (ppad[ix])) |
| … | |
… | |
| 518 | PL_retstack_max = 8; |
520 | PL_retstack_max = 8; |
| 519 | } |
521 | } |
| 520 | |
522 | |
| 521 | /* |
523 | /* |
| 522 | * destroy the stacks, the callchain etc... |
524 | * destroy the stacks, the callchain etc... |
| 523 | * still there is a memleak of 128 bytes... |
|
|
| 524 | */ |
525 | */ |
| 525 | STATIC void |
526 | STATIC void |
| 526 | destroy_stacks(pTHX) |
527 | destroy_stacks(pTHX) |
| 527 | { |
528 | { |
| 528 | if (!IN_DESTRUCT) |
529 | if (!IN_DESTRUCT) |
