Keep up with Unix code. It's beginning to be time to rethink the VMS

[openssl.git] / util / selftest.pl

diff --git a/util/selftest.pl b/util/selftest.pl
index 91aaaeca9d5c1409dbe1f0b2666ef59a5fd877ca..6dfef9cc2953ce1c0857246b2cfbe376c3d69085 100644 (file)
--- a/util/selftest.pl
+++ b/util/selftest.pl
@@ -19,6 +19,7 @@ my $ok=0;
 my $cc="cc";
 my $cversion="??";
 my $sep="-----------------------------------------------------------------------------\n";
+my $not_our_fault="\nPlease ask your system administrator/vendor for more information.\n[Problems with your operating system setup should not be reported\nto the OpenSSL project.]\n";
 
 open(OUT,">$report") or die;
 
@@ -76,16 +77,18 @@ print OUT "\n";
 
 print "Checking compiler...\n";
 if (open(TEST,">cctest.c")) {
-    print TEST "#include <stdio.h>\nmain(){printf(\"Hello world\\n\");}\n";
+    print TEST "#include <stdio.h>\n#include <errno.h>\nmain(){printf(\"Hello world\\n\");}\n";
     close(TEST);
     system("$cc -o cctest cctest.c");
     if (`./cctest` !~ /Hello world/) {
        print OUT "Compiler doesn't work.\n";
+       print OUT $not_our_fault;
        goto err;
     }
-    system("ar r cctest.a");
+    system("ar r cctest.a /dev/null");
     if (not -f "cctest.a") {
        print OUT "Check your archive tool (ar).\n";
+       print OUT $not_our_fault;
        goto err;
     }
 } else {
@@ -102,6 +105,7 @@ if (open(TEST,">cctest.c")) {
        } else {
            print OUT "Can't compile test program!\n";
        }
+       print OUT $not_our_fault;
        goto err;
     }
 } else {
@@ -127,6 +131,7 @@ if (system("make 2>&1 | tee make.log") > 255) {
 
 $_=$options;
 s/no-asm//;
+s/no-shared//;
 if (/no-/)
 {
     print OUT "Test skipped.\n";