646b892680
Some checks failed
Periodic Merges (6h) / master → staging-nixos (push) Failing after 12m50s
Periodic Merges (6h) / master → staging-next (push) Failing after 12m54s
Periodic Merges (24h) / merge-base(master,staging) → haskell-updates (push) Failing after 11m54s
Periodic Merges (6h) / staging-next → staging (push) Failing after 12m13s
Periodic Merges (24h) / staging-next-25.05 → staging-25.05 (push) Failing after 13m24s
Periodic Merges (24h) / release-25.05 → staging-next-25.05 (push) Failing after 14m28s
19 lines
769 B
Diff
19 lines
769 B
Diff
diff -ru orig/t/SATest.pm new/t/SATest.pm
|
|
--- orig/t/SATest.pm 2023-06-25 11:26:27.663204415 +0000
|
|
+++ new/t/SATest.pm 2023-06-25 11:34:08.902174669 +0000
|
|
@@ -65,9 +65,12 @@
|
|
|
|
# Clean PATH so taint doesn't complain
|
|
if (!$RUNNING_ON_WINDOWS) {
|
|
- $ENV{'PATH'} = '/bin:/usr/bin:/usr/local/bin';
|
|
+ # untaint PATH
|
|
+ $ENV{'PATH'} =~ /^(.+)$/;
|
|
+ $ENV{'PATH'} = $1;
|
|
+ # $ENV{'PATH'} = '/bin:/usr/bin:/usr/local/bin';
|
|
# Remove tainted envs, at least ENV used in FreeBSD
|
|
- delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
|
|
+ # delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
|
|
} else {
|
|
# Windows might need non-system directories in PATH to run a Perl installation
|
|
# The best we can do is clean out obviously bad stuff such as relative paths or \..\
|