We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 2b9b745 commit 7d4dadbCopy full SHA for 7d4dadb
t/op/goto-amp-name.t
@@ -10,11 +10,8 @@ BEGIN {
10
use warnings;
11
use strict;
12
use Config;
13
-#plan tests => 'no_plan'; # yet
14
plan tests => 39;
15
16
-our $TODO;
17
-
18
# Excerpts from 'perldoc -f goto' as of perl-5.40.1 (Aug 2025)
19
#
20
# The "goto &NAME" form is quite different from the other forms of
@@ -255,17 +252,6 @@ sub {
255
252
}
256
253
}->();
257
254
258
259
260
261
262
263
264
265
266
267
268
269
# [perl #36521] goto &foo in warn handler could defeat recursion avoider
270
271
{
t/op/goto.t
@@ -12,7 +12,6 @@ BEGIN {
-#plan tests => 134;
plan tests => 96;
our $TODO;
0 commit comments