Exercise one exception in pp_goto()

Reworked from recommendation by Tony Cook in GH #23964.

Author: jkeenan

t/op/defer.t

@@ -6,7 +6,7 @@ BEGIN {
     set_up_inc('../lib');
 }
 
-plan 32;
+plan 33;
 
 use feature 'defer';
 no warnings 'experimental::defer';
@@ -325,3 +325,22 @@ no warnings 'experimental::defer';
         "Got expected exception: last out of defer block");
 }
 
+# [GH #23964]
+{
+    use warnings;
+    no warnings 'experimental::defer';
+    use feature 'say';
+
+    eval {
+        sub f { goto FOO; }
+        sub g { defer { f() } }
+        g();
+        goto BAR;
+        FOO: say "FOO";
+        BAR: say "BAR";
+    };
+    like($@,
+        qr/Can't \"goto\" out of a \"defer\" block/,
+        "Got expected exception: can't goto out of defer block");
+}
+