diff options
| author | Robin Houston <robin@cpan.org> | 2005-10-29 22:33:07 +0100 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2005-11-02 12:49:54 +0000 |
| commit | 9850bf21fc4ed69d8ddb0293df59411f891c62df (patch) | |
| tree | 047a29a8cd2d04148aa15000e1307651d86afe8a /pp_hot.c | |
| parent | bda6ed216cf53718fff278193bffd2c4078fb377 (diff) | |
| download | perl-9850bf21fc4ed69d8ddb0293df59411f891c62df.tar.gz | |
sort/multicall patch
Message-ID: <20051029203307.GA8869@rpc142.cs.man.ac.uk>
p4raw-id: //depot/perl@25953
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -2331,6 +2331,9 @@ PP(pp_leavesub) register PERL_CONTEXT *cx; SV *sv; + if (CxMULTICALL(&cxstack[cxstack_ix])) + return 0; + POPBLOCK(cx,newpm); cxstack_ix++; /* temporarily protect top context */ @@ -2391,6 +2394,9 @@ PP(pp_leavesublv) register PERL_CONTEXT *cx; SV *sv; + if (CxMULTICALL(&cxstack[cxstack_ix])) + return 0; + POPBLOCK(cx,newpm); cxstack_ix++; /* temporarily protect top context */ |