From 4063951ded3fabcfa2646e279c664f02b31b3359 Mon Sep 17 00:00:00 2001 From: Kornel Benko Date: Tue, 8 Oct 2024 11:36:25 +0200 Subject: [PATCH] Amend 341410a5: Change log-output to better parse urls --- development/checkurls/search_url.pl | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/development/checkurls/search_url.pl b/development/checkurls/search_url.pl index 5bd4c35215..8bf9789c78 100755 --- a/development/checkurls/search_url.pl +++ b/development/checkurls/search_url.pl @@ -228,6 +228,10 @@ for (my $i = 0; $i < $NR_JOBS; $i++) { # Number of subprocesses if ($res || $checkSelectedOnly) { printx("$err_txt \"$u\"\n", $outSum, $fe, $fs); } + else { + printx("OK url: \"$u\"\n", $outSum, $fe, $fs); + $printSourceFiles = 1; + } if ($printSourceFiles) { if (defined($URLS{$u})) { for my $f (sort keys %{$URLS{$u}}) { @@ -245,7 +249,7 @@ for (my $i = 0; $i < $NR_JOBS; $i++) { # Number of subprocesses $wait[$i] = $pid; } -for (my $i = 0; $i < 10; $i++) { +for (my $i = 0; $i < $NR_JOBS; $i++) { my $p = $wait[$i]; if ($p > 0) { waitpid($p, 0);