develooper Front page | perl.perl5.changes | Postings from March 2018

[perl.git] branch blead updated. v5.27.9-129-g779ff8f469

From:
Craig A. Berry
Date:
March 8, 2018 23:43
Subject:
[perl.git] branch blead updated. v5.27.9-129-g779ff8f469
Message ID:
E1eu5Be-0006QT-Gs@git.dc.perl.space
In perl.git, the branch blead has been updated

<https://perl5.git.perl.org/perl.git/commitdiff/779ff8f4698130386a10e96feff6ed4b44b71b88?hp=59a15af0ac34400c89a35320efcf49e8dfe8267c>

- Log -----------------------------------------------------------------
commit 779ff8f4698130386a10e96feff6ed4b44b71b88
Author: Craig A. Berry <craigberry@mac.com>
Date:   Thu Mar 8 11:59:49 2018 -0600

    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.

-----------------------------------------------------------------------

Summary of changes:
 t/op/goto.t | 8 +++++---
 1 file 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.

-- 
Perl5 Master Repository



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About