diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-04-03 21:01:09 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-04-03 21:01:09 +0000 |
| commit | 67caa1fef1ac64bae9d7c9deecbf100088307e6f (patch) | |
| tree | 30866fdce7cc404aa0065c3f51eac0a92dae5562 /pp_ctl.c | |
| parent | 6fc9266916f08dacf1850556174b6312eefb14e6 (diff) | |
| download | perl-67caa1fef1ac64bae9d7c9deecbf100088307e6f.tar.gz | |
scrounge and save three extra branches in pp_entersub()
p4raw-id: //depot/perl@3214
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -2120,6 +2120,7 @@ PP(pp_goto) /* Now do some callish stuff. */ SAVETMPS; if (CvXSUB(cv)) { +#ifdef PERL_XSUB_OLDSTYLE if (CvOLDSTYLE(cv)) { I32 (*fp3)_((int,int,int)); while (SP > mark) { @@ -2132,7 +2133,9 @@ PP(pp_goto) items); SP = PL_stack_base + items; } - else { + else +#endif /* PERL_XSUB_OLDSTYLE */ + { SV **newsp; I32 gimme; |