diff options
| author | Craig A. Berry <craigberry@mac.com> | 2018-03-08 11:59:49 -0600 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2018-03-08 17:41:45 -0600 |
| commit | 779ff8f4698130386a10e96feff6ed4b44b71b88 (patch) | |
| tree | 5cdb2c575c99f8be02fcaf6a5732d91cf74548f2 /t/op/goto.t | |
| parent | 59a15af0ac34400c89a35320efcf49e8dfe8267c (diff) | |
| download | perl-779ff8f4698130386a10e96feff6ed4b44b71b88.tar.gz | |
Avoid goto into glob test failure on VMS.
glob() does not return a list on VMS, so joining its result fails
expectations for this test.
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. |