Move one test

Author: jkeenan

t/op/goto-amp-name.t

@@ -11,7 +11,7 @@ use warnings;
 use strict;
 use Config;
 #plan tests => 'no_plan'; # yet
-plan tests => 11;
+plan tests => 12;
 our $TODO;
 
 # Excerpts from 'perldoc -f goto' as of perl-5.40.1 (Aug 2025)
@@ -57,6 +57,16 @@ local $SIG{__WARN__} = sub {
 
 our $foo;
 
+# [perl #36521] goto &foo in warn handler could defeat recursion avoider
+
+{
+    my $r = runperl(
+		stderr => 1,
+		prog => 'my $d; my $w = sub { return if $d++; warn q(bar)}; local $SIG{__WARN__} = sub { goto &$w; }; warn q(foo);'
+    );
+    like($r, qr/bar/, "goto &foo in warn");
+}
+
 # v5.31.3-198-gd2cd363728 broke this. goto &XS_sub  wasn't restoring
 # cx->blk_sub.old_cxsubix. Would panic in pp_return
 

t/op/goto.t

@@ -13,7 +13,7 @@ use warnings;
 use strict;
 use Config;
 #plan tests => 134;
-plan tests => 124;
+plan tests => 123;
 our $TODO;
 
 my $deprecated = 0;
@@ -597,16 +597,16 @@ sub {
 }->();
 
 
-# [perl #36521] goto &foo in warn handler could defeat recursion avoider
-
-{
-    my $r = runperl(
-		stderr => 1,
-		prog => 'my $d; my $w = sub { return if $d++; warn q(bar)}; local $SIG{__WARN__} = sub { goto &$w; }; warn q(foo);'
-    );
-    like($r, qr/bar/, "goto &foo in warn");
-}
-
+## [perl #36521] goto &foo in warn handler could defeat recursion avoider
+#
+#{
+#    my $r = runperl(
+#		stderr => 1,
+#		prog => 'my $d; my $w = sub { return if $d++; warn q(bar)}; local $SIG{__WARN__} = sub { goto &$w; }; warn q(foo);'
+#    );
+#    like($r, qr/bar/, "goto &foo in warn");
+#}
+#
 TODO: {
     local $TODO = "[perl #43403] goto() from an if to an else doesn't undo local () changes";
     our $global = "unmodified";