diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-23 16:04:38 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-23 16:04:38 +0000 |
| commit | 343d3f38aaddb9ab6fe1187337ca19ffb0f71000 (patch) | |
| tree | e772868de99b2da81e1fca6d6e4988aa4f9676c7 /t/op/taint.t | |
| parent | e1a6f43996336c470b80243ea4eb2bd64a96dc7f (diff) | |
| download | perl-343d3f38aaddb9ab6fe1187337ca19ffb0f71000.tar.gz | |
cygwin needs cygwin1.dll in PATH or cwd to run external programs.
cygwin does not taint cwd, just like win32.
p4raw-id: //depot/perl@10868
Diffstat (limited to 't/op/taint.t')
| -rwxr-xr-x | t/op/taint.t | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/t/op/taint.t b/t/op/taint.t index c2bb2f8705..effb12c3b0 100755 --- a/t/op/taint.t +++ b/t/op/taint.t @@ -42,6 +42,7 @@ my $Is_VMS = $^O eq 'VMS'; my $Is_MSWin32 = $^O eq 'MSWin32'; my $Is_NetWare = $^O eq 'NetWare'; my $Is_Dos = $^O eq 'dos'; +my $Is_Cygwin = $^O eq 'cygwin'; my $Invoke_Perl = $Is_VMS ? 'MCR Sys$Disk:[]Perl.' : ($Is_MSWin32 ? '.\perl' : ($Is_NetWare ? 'perl' : './perl')); @@ -120,6 +121,12 @@ print "1..174\n"; delete @ENV{@MoreEnv}; $ENV{TERM} = 'dumb'; + if ($Is_Cygwin) { + system("/usr/bin/cp /usr/bin/cygwin1.dll .") && + die "$0: failed to cp cygwin1.dll: $!\n"; + END { unlink "cygwin1.dll" } # yes, done for all platforms... + } + test 1, eval { `$echo 1` } eq "1\n"; if ($Is_MSWin32 || $Is_NetWare || $Is_VMS || $Is_Dos) { |