In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/749ffd5261eca586bdf08070968dd622c24cfd8f?hp=712a451748ed195445466d819b3cd7936892a751>

- Log -----------------------------------------------------------------
commit 749ffd5261eca586bdf08070968dd622c24cfd8f
Author: Craig A. Berry <[email protected]>
Date:   Wed Oct 29 21:42:32 2014 -0500

    Unixify the new Test::Simple temp dir on VMS.
    
    We're going to be combining the temporary directory with hard-coded
    forward slashes in various path components, so make sure the thing
    we're appending to is also in Unix format.
    
    Without this the core test suite on a threaded build hangs in
    Thread::Queue because the Test::Simple bug causes lots of things to
    fail and Thread::Queue doesn't handle threads that fail.
    
    Hopefully submitted upstream at
    
    <https://github.com/Test-More/test-more/issues/468>
    
    but I have no idea what the relationship is between Test::More
    and Test::Simple -- I just followed the link from search.cpan.org
    and tried to open an "issue."
-----------------------------------------------------------------------

Summary of changes:
 cpan/Test-Simple/lib/Test/Stream.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/cpan/Test-Simple/lib/Test/Stream.pm 
b/cpan/Test-Simple/lib/Test/Stream.pm
index 87aa059..ac9eaf3 100644
--- a/cpan/Test-Simple/lib/Test/Stream.pm
+++ b/cpan/Test-Simple/lib/Test/Stream.pm
@@ -304,6 +304,10 @@ sub use_fork {
 
     $_[0]->[_USE_FORK] ||= File::Temp::tempdir(CLEANUP => 0);
     confess "Could not get a temp dir" unless $_[0]->[_USE_FORK];
+    if ($^O eq 'VMS') {
+        require VMS::Filespec;
+        $_[0]->[_USE_FORK] = VMS::Filespec::unixify($_[0]->[_USE_FORK]);
+    }
     return 1;
 }
 

--
Perl5 Master Repository

Reply via email to