diff options
Diffstat (limited to 't/op/goto.t')
-rw-r--r-- | t/op/goto.t | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/t/op/goto.t b/t/op/goto.t index 88715c39de..08b612b8a5 100644 --- a/t/op/goto.t +++ b/t/op/goto.t @@ -858,9 +858,11 @@ is sub { goto z; exit do { z: return "foo" } }->(), 'foo', 'goto into exit'; is sub { goto z; eval do { z: "'foo'" } }->(), 'foo', 'goto into eval'; -is join(",",sub { goto z; glob do { z: "foo bar" } }->()), 'foo,bar', - 'goto into glob'; - +TODO: { + local $TODO = "glob() does not currently return a list on VMS" if $^O eq 'VMS'; + is join(",",sub { goto z; glob do { z: "foo bar" } }->()), 'foo,bar', + 'goto into glob'; +} # [perl #132799] # Erroneous inward goto warning, followed by crash. # The eval must be in an assignment. |