This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
cd97dc8
)
pp_redo()): reorder some stuff
author
David Mitchell
<davem@iabyn.com>
Thu, 24 Dec 2015 23:12:37 +0000
(23:12 +0000)
committer
David Mitchell
<davem@iabyn.com>
Wed, 3 Feb 2016 09:19:17 +0000
(09:19 +0000)
It probably doesn't make any difference, but reorder the FREETMPS,
CX_LEAVE_SCOPE and TOPBLOCK so it matches the order we do things when
leaving a scope.
pp_ctl.c
patch
|
blob
|
blame
|
history
diff --git
a/pp_ctl.c
b/pp_ctl.c
index
c222dbb
..
901eff8
100644
(file)
--- a/
pp_ctl.c
+++ b/
pp_ctl.c
@@
-2570,9
+2570,9
@@
PP(pp_redo)
redo_op = redo_op->op_next;
}
- TOPBLOCK(cx);
- CX_LEAVE_SCOPE(cx);
FREETMPS;
+ CX_LEAVE_SCOPE(cx);
+ TOPBLOCK(cx);
PL_curcop = cx->blk_oldcop;
PERL_ASYNC_CHECK();
return redo_op;