diff options
author | Ulf Möller <ulf@openssl.org> | 2000-02-23 23:47:05 +0000 |
---|---|---|
committer | Ulf Möller <ulf@openssl.org> | 2000-02-23 23:47:05 +0000 |
commit | d7f0ab5ff48bb2fe2e777e6aa068fc581a1da32b (patch) | |
tree | c59bda6070f349658477c683945923f80f25e1ff /util/selftest.pl | |
parent | 49976df599496d60aff29260b9b8b28b100b9434 (diff) |
New make target "report" to run util/selftest.pl
Diffstat (limited to 'util/selftest.pl')
-rw-r--r-- | util/selftest.pl | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/util/selftest.pl b/util/selftest.pl index 0849737ace..ac46c68037 100644 --- a/util/selftest.pl +++ b/util/selftest.pl @@ -17,6 +17,7 @@ my $options="??"; my $last="??"; my $ok=0; my $cc="cc"; +my $cversion="??"; my $sep="-----------------------------------------------------------------------------\n"; open(OUT,">$report") or die; @@ -38,13 +39,19 @@ if (open(IN,"<Makefile.ssl")) { $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})/) { @@ -61,8 +68,11 @@ print OUT "OS (uname): $uname"; 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"; @@ -149,3 +159,4 @@ while (<IN>) { print; } print "Test report in file $report\n"; + |