Exercise statement in pp_ctl.c: S_unwind_loop()

Per suggestion by Dave Mitchell in GH #23948, including comment re
pp_return().

Author: jkeenan

pp_ctl.c

@@ -2886,6 +2886,8 @@ PP(pp_return)
             if(CxTYPE(&cxstack[i]) == CXt_DEFER)
                 /* diag_listed_as: Can't "%s" out of a "defer" block */
                 /* diag_listed_as: Can't "%s" out of a "finally" block */
+                /* GH 23948: probably not reachable from test suite, but
+                 * possibly from XS code; retain */
                 croak("Can't \"%s\" out of a \"%s\" block",
                         "return", S_defer_blockname(&cxstack[i]));
         }

t/op/defer.t

@@ -6,7 +6,7 @@ BEGIN {
     set_up_inc('../lib');
 }
 
-plan 29;
+plan 31;
 
 use feature 'defer';
 no warnings 'experimental::defer';
@@ -300,3 +300,24 @@ no warnings 'experimental::defer';
 
     is($ok, "ok", 'eval{die} inside defer does not stop runloop');
 }
+
+# [GH #23948]
+{
+    use warnings;
+    no warnings 'experimental';
+
+    my @warnings;
+    local $SIG{__WARN__} = sub { push @warnings, "@_" };
+
+    my $err = '';
+    for (1) {
+        defer {
+            eval 'last'; $err = $@; chomp $err;
+        }
+    }
+    like($warnings[0], qr/Exiting eval via last at/, "Got expected warning");
+    like($err,
+        qr/Can't "last" out of a "defer" block at \(eval \d+\) line 1\./,
+        "got expected exception");
+}
+