my $last="??";
my $ok=0;
my $cc="cc";
+my $cversion="??";
my $sep="-----------------------------------------------------------------------------\n";
open(OUT,">$report") or die;
$version=$1 if (/^VERSION=(.*)$/);
$platform=$1 if (/^PLATFORM=(.*)$/);
$options=$1 if (/^OPTIONS=(.*)$/);
- $cc=$1 if (/^CC=(.*)$/);
+ $cc=$1 if (/^CC= *(.*)$/);
}
close(IN);
} else {
- print OUT "Error running config: no Makefile.ssl!\n";
+ print OUT "Error running config!\n";
}
+$cversion=`$cc -v 2>&1`;
+$cversion=`$cc -V 2>&1` if $cversion =~ "usage";
+$cversion =~ s/Reading specs.*\n//;
+$cversion =~ s/usage.*\n//;
+chomp $cversion;
+
if (open(IN,"<CHANGES")) {
while(<IN>) {
if (/\*\) (.{0,55})/) {
print OUT "OS (config): $os\n";
print OUT "Target (default): $platform0\n";
print OUT "Target: $platform\n";
+print OUT "Compiler: $cversion\n";
print OUT "\n";
+goto err;
+
print "Checking compiler...\n";
if (open(TEST,">test.c")) {
- print TEST "#include <stdio.h>\nmain(){printf(\"Hello world\n\");}\n";
+ print TEST "#include <stdio.h>\nmain(){printf(\"Hello world\\n\");}\n";
close(TEST);
system("$cc -o cctest test.c");
- if (! `./cctest` =~ /Hello world/) {
+ if (`./cctest` !~ /Hello world/) {
print OUT "Compiler doesn't work.\n";
goto err;
}
print;
}
print "Test report in file $report\n";
+