romenskiy2012/curl
1
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2026-08-24 22:13:33 +03:00
Code Issues Projects Releases Packages Wiki Activity

scripts: harden / tidy up more Perl system() calls

Browse source 
Closes #21007
This commit is contained in:
Viktor Szakats 2026-03-19 12:19:04 +01:00
parent 31add10322
commit 51f813308e
No known key found for this signature in database
10 changed files with 22 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

18
scripts/randdisable
View file

@ -53,31 +53,31 @@ do {
my $num = rand(scalar(@disable) - 2) + 2;
my $c = 0;
my $arg;
my @arg;
for my $d (shuffle @disable) {
$arg .= " $d";
push @arg, $d;
if(++$c >= $num) {
last;
}
}
my @stls = shuffle @tls;
$arg.= " ".$stls[0];
push @arg, @stls;
system("make clean");
if(system("./configure $arg")) {
system('make', ('clean'));
if(system('./configure', @arg)) {
print STDERR "configure problem\n";
print STDERR "./configure $arg\n";
print STDERR "./configure " . join(' ', @arg) . "\n";
exit 1;
}
if(system("make -sj10")) {
if(system('make', ('-sj10'))) {
print STDERR "Build problem\n";
print STDERR "./configure $arg\n";
print STDERR "./configure " . join(' ', @arg) . "\n";
exit 1;
}
if(system("./src/curl -V 2>/dev/null")) {
print STDERR "Running problem\n";
print STDERR "./configure $arg\n";
print STDERR "./configure " . join(' ', @arg) . "\n";
exit 1;
}
} while(1);