From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Tue, 11 Dec 2007 13:35:55 +0000 (-0500)
Subject: Must have /bin under Cygwin
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e67ed6948b0e6164946ef34f55b86ed0976bc4ff;p=p5sagit%2Fp5-mst-13.2.git

Must have /bin under Cygwin
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510712111035u7f8da6e8h1a1cbd9d85d27c03@mail.gmail.com>

p4raw-id: //depot/perl@32611
---

diff --git a/t/test.pl b/t/test.pl
index b492c77..e10f78d 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -397,6 +397,7 @@ my $is_mswin    = $^O eq 'MSWin32';
 my $is_netware  = $^O eq 'NetWare';
 my $is_macos    = $^O eq 'MacOS';
 my $is_vms      = $^O eq 'VMS';
+my $is_cygwin   = $^O eq 'cygwin';
 
 sub _quote_args {
     my ($runperl, $args) = @_;
@@ -530,6 +531,7 @@ sub runperl {
 	    join $sep, grep { $_ ne "" and $_ ne "." and -d $_ and
 		($is_mswin or $is_vms or !(stat && (stat _)[2]&0022)) }
 		    split quotemeta ($sep), $1;
+	$ENV{PATH} .= "$sep/bin" if $is_cygwin;  # Must have /bin under Cygwin
 
 	$runperl =~ /(.*)/s;
 	$runperl = $1;