replace leave_common() with leave_adjust_stacks()

Make the remaining callers of S_leave_common() use leave_adjust_stacks()
instead, then delete this static function.

This brings the benefits of freeing TEMPS on all scope exists that
has already been introduced on sub exits; uses the optimised code for
creating mortal copies; and finally unifies all the different 'process
return args on scope exit' implementations into single function.

1 files changed, 12 insertions, 0 deletions

diff --git a/t/op/do.t b/t/op/do.t
index 3cc4eae72b..0bbab5e506 100644
--- a/t/op/do.t
+++ b/t/op/do.t
@@ -293,4 +293,16 @@ SKIP: {
     }->(do { 1; delete $foo{bar} });
 }
 
+# A do block should FREETMPS on exit
+# RT #124248
+
+{
+    package p124248;
+    my $d = 0;
+    sub DESTROY { $d++ }
+    sub f { ::is($d, 1, "RT 124248"); }
+    f(do { 1; !!(my $x = bless []); });
+}
+
+
 done_testing();