Rename test file; update MANIFEST

Move one test block from op/goto.t to (renamed) op/goto-sub.t.

Author: jkeenan

MANIFEST

@@ -6348,7 +6348,7 @@ t/op/getppid.t				See if getppid works
 t/op/glob.t				See if <*> works
 t/op/gmagic.t				See if GMAGIC works
 t/op/goto.t				See if goto works
-t/op/goto-amp-name.t			See if goto &NAME works
+t/op/goto-sub.t				See if goto &NAME works
 t/op/goto_xs.t				See if "goto &sub" works on XSUBs
 t/op/grent.t				See if getgr*() functions work
 t/op/grep.t				See if grep() and map() work

t/op/goto-amp-name.t renamed to t/op/goto-sub.t

@@ -10,7 +10,7 @@ BEGIN {
 use warnings;
 use strict;
 use Config;
-plan tests => 39;
+plan tests => 40;
 
 # Excerpts from 'perldoc -f goto' as of perl-5.40.1 (Aug 2025)
 #
@@ -262,6 +262,14 @@ sub {
     like($r, qr/bar/, "goto &foo in warn");
 }
 
+{
+    sub TIESCALAR { bless [pop] }
+    sub FETCH     { $_[0][0] }
+    tie my $t, "", sub { "cluck up porridge" };
+    is eval { sub { goto $t }->() }//$@, 'cluck up porridge',
+      'tied arg returning sub ref';
+}
+
 # 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

@@ -12,7 +12,7 @@ BEGIN {
 use warnings;
 use strict;
 use Config;
-plan tests => 96;
+plan tests => 95;
 
 our $TODO;
 
@@ -573,12 +573,6 @@ like $@, qr/^Can't find label \0 at /, 'goto $x where $x begins with \0';
 eval { goto "\0" };
 like $@, qr/^Can't find label \0 at /, 'goto "\0"';
 
-sub TIESCALAR { bless [pop] }
-sub FETCH     { $_[0][0] }
-tie my $t, "", sub { "cluck up porridge" };
-is eval { sub { goto $t }->() }//$@, 'cluck up porridge',
-  'tied arg returning sub ref';
-
 TODO: {
   local $::TODO = 'RT #45091: goto in CORE::GLOBAL::exit unsupported';
   fresh_perl_is(<<'EOC', "before\ndie handler\n", {stderr => 1}, 'RT #45091: goto in CORE::GLOBAL::EXIT');