diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2004-05-30 14:30:45 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2004-05-30 14:30:45 +0000 |
| commit | ff0adf167b2e3460e75812c6003c4a897c4595fe (patch) | |
| tree | b759fbbe63fb8c6eaf66bd92c7a33ef31443e08d /pp_ctl.c | |
| parent | 4a18dc28664f2e29af2105a7f018cb19013a4bbb (diff) | |
| download | perl-ff0adf167b2e3460e75812c6003c4a897c4595fe.tar.gz | |
[perl #29708] Problem with autouse (causing Perl to crash)
@_ sometimes wasn't getting created right
p4raw-id: //depot/perl@22870
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2329,7 +2329,7 @@ PP(pp_goto) else { if (CvDEPTH(cv) == 100 && ckWARN(WARN_RECURSION)) sub_crush_depth(cv); - pad_push(padlist, CvDEPTH(cv), cx->blk_sub.hasargs); + pad_push(padlist, CvDEPTH(cv), 1); } PAD_SET_CUR(padlist, CvDEPTH(cv)); if (cx->blk_sub.hasargs) |