diff options
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/taint.t | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/t/op/taint.t b/t/op/taint.t index 26f9587e85..119e419164 100755 --- a/t/op/taint.t +++ b/t/op/taint.t @@ -134,6 +134,23 @@ my $TEST = catfile(curdir(), 'TEST'); { $ENV{'DCL$PATH'} = '' if $Is_VMS; + if ($Is_MSWin32 && $Config{ccname} =~ /bcc32/ && ! -f 'cc3250mt.dll') { + my $bcc_dir; + foreach my $dir (split /$Config{path_sep}/, $ENV{PATH}) { + if (-f "$dir/cc3250mt.dll") { + $bcc_dir = $dir and last; + } + } + if (defined $bcc_dir) { + require File::Copy; + File::Copy::copy("$bcc_dir/cc3250mt.dll", '.') or + die "$0: failed to copy cc3250mt.dll: $!\n"; + eval q{ + END { unlink "cc3250mt.dll" } + }; + } + } + $ENV{PATH} = ''; delete @ENV{@MoreEnv}; $ENV{TERM} = 'dumb'; |