diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-26 01:28:34 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-26 01:28:34 +0000 |
| commit | a682de96b5260e75b40bb25b8d2eb16f338518c6 (patch) | |
| tree | 3cf5aff282fb101ea314f5ff146b88bd4d48ea19 /pp_ctl.c | |
| parent | c0f8b9cdfbe91d09a84668a0f66d7bc8fc690dbf (diff) | |
| download | perl-a682de96b5260e75b40bb25b8d2eb16f338518c6.tar.gz | |
change#3534 didn't preserve undef return values from caller()
p4raw-link: @3534 on //depot/perl: f3aa04c29a85dd63d563ae8e27316ff34501ccd5
p4raw-id: //depot/perl@3751
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 9 |
1 files changed, 6 insertions, 3 deletions
@@ -1462,9 +1462,12 @@ PP(pp_caller) PUSHs(&PL_sv_yes); } } - else if (CxTYPE(cx) == CXt_SUB && - cx->blk_sub.hasargs && - PL_curcop->cop_stash == PL_debstash) + else { + PUSHs(&PL_sv_undef); + PUSHs(&PL_sv_undef); + } + if (CxTYPE(cx) == CXt_SUB && cx->blk_sub.hasargs + && PL_curcop->cop_stash == PL_debstash) { AV *ary = cx->blk_sub.argarray; int off = AvARRAY(ary) - AvALLOC(ary); |