mirror of
https://github.com/moparisthebest/curl
synced 2025-03-11 07:39:50 -04:00
If unable to get curl's version, log all failure details.
This commit is contained in:
parent
b68d3a073b
commit
93d59520e4
@ -843,9 +843,24 @@ sub checksystem {
|
|||||||
my $feat;
|
my $feat;
|
||||||
my $curl;
|
my $curl;
|
||||||
my $libcurl;
|
my $libcurl;
|
||||||
my $versionerr="$LOGDIR/versionerr.log";
|
my $versretval;
|
||||||
my $versioncmd="$CURL --version 2>$versionerr";
|
my $versnoexec;
|
||||||
my @version=`$versioncmd`;
|
my @version=();
|
||||||
|
|
||||||
|
my $curlverout="$LOGDIR/curlverout.log";
|
||||||
|
my $curlvererr="$LOGDIR/curlvererr.log";
|
||||||
|
my $versioncmd="$CURL --version 1>$curlverout 2>$curlvererr";
|
||||||
|
|
||||||
|
unlink($curlverout);
|
||||||
|
unlink($curlvererr);
|
||||||
|
|
||||||
|
$versretval = system($versioncmd);
|
||||||
|
$versnoexec = $!;
|
||||||
|
|
||||||
|
open(VERSOUT, $curlverout);
|
||||||
|
@version = <VERSOUT>;
|
||||||
|
close(VERSOUT);
|
||||||
|
|
||||||
for(@version) {
|
for(@version) {
|
||||||
chomp;
|
chomp;
|
||||||
|
|
||||||
@ -956,17 +971,23 @@ sub checksystem {
|
|||||||
}
|
}
|
||||||
if(!$curl) {
|
if(!$curl) {
|
||||||
logmsg "unable to get curl's version! further details are:\n";
|
logmsg "unable to get curl's version! further details are:\n";
|
||||||
logmsg "CURL: \n";
|
logmsg "issued command: \n";
|
||||||
logmsg "$CURL \n";
|
|
||||||
logmsg "VERSIONCMD: \n";
|
|
||||||
logmsg "$versioncmd \n";
|
logmsg "$versioncmd \n";
|
||||||
logmsg "STDOUT: \n";
|
if ($versretval == -1) {
|
||||||
for(@version) {
|
logmsg "command failed with: \n";
|
||||||
chomp;
|
logmsg "$versnoexec \n";
|
||||||
logmsg "$_ \n";
|
|
||||||
}
|
}
|
||||||
logmsg "STDERR: \n";
|
elsif ($versretval & 127) {
|
||||||
displaylogcontent("$versionerr");
|
logmsg sprintf("command died with signal %d, and %s coredump. \n",
|
||||||
|
($versretval & 127), ($versretval & 128)?"a":"no");
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
logmsg sprintf("command exited with value %d \n", $versretval >> 8);
|
||||||
|
}
|
||||||
|
logmsg "contents of $curlverout: \n";
|
||||||
|
displaylogcontent("$curlverout");
|
||||||
|
logmsg "contents of $curlvererr: \n";
|
||||||
|
displaylogcontent("$curlvererr");
|
||||||
die "couldn't get curl's version!";
|
die "couldn't get curl's version!";
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user