diff options
| author | Jerry D. Hedden <jdhedden@cpan.org> | 2007-12-11 08:35:55 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-12-11 21:02:22 +0000 |
| commit | e67ed6948b0e6164946ef34f55b86ed0976bc4ff (patch) | |
| tree | 8a4279660d5d3487d8ee74f9fd6e9221670848c3 /t | |
| parent | 187a0176da285209f351a4626ff8b1c74ba2d5ee (diff) | |
| download | perl-e67ed6948b0e6164946ef34f55b86ed0976bc4ff.tar.gz | |
Must have /bin under Cygwin
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510712111035u7f8da6e8h1a1cbd9d85d27c03@mail.gmail.com>
p4raw-id: //depot/perl@32611
Diffstat (limited to 't')
| -rw-r--r-- | t/test.pl | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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; |