Add tests for exceptions to now-fatalized uses of goto LABEL

Author: jkeenan

t/op/goto.t

@@ -12,7 +12,7 @@ BEGIN {
 use warnings;
 use strict;
 use Config;
-plan tests =>  52;
+plan tests =>  53;
 
 our $TODO;
 
@@ -556,3 +556,20 @@ pass("bug 132799");
         "goto LABEL can't be used to go into a construct that is optimized away");
 }
 
+note("Tests of functionality fatalized in Perl 5.44");
+my $msg = q|Use of "goto" to jump into a construct is no longer permitted|;
+
+{
+
+    my $false = 0;
+    my $thisok = 0;
+
+    local $@;
+    eval {
+        for (my $p=1; $p && goto A; $p=0) {
+            A: $thisok = 1;
+        }
+    };
+    like($@, qr/$msg/,
+        "Got expected exception; formerly: following goto and for(;;) loop");
+}