Must have /bin under Cygwin
authorJerry D. Hedden <jdhedden@cpan.org>
Tue, 11 Dec 2007 13:35:55 +0000 (08:35 -0500)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 11 Dec 2007 21:02:22 +0000 (21:02 +0000)
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510712111035u7f8da6e8h1a1cbd9d85d27c03@mail.gmail.com>

p4raw-id: //depot/perl@32611

t/test.pl

index b492c77..e10f78d 100644 (file)
--- 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;