Lines Matching +full:- +full:- +full:exit +full:- +full:code

1 #! {- $config{HASHBANGPERL} -}
12     require {-
17          -};
18     OpenSSL::Util->import();
27 if ($ARGV[0] eq '-fips') {
28     $std_openssl_conf = {-
31          "'" . abs_path(catfile($config{sourcedir}, 'test/fips-and-base.cnf')) . "'";
32          -};
38             && -d $std_openssl_conf_include;
42     if ($ENV{OPENSSL_ENGINES} // '') eq '' && -d $std_engines;
44     if ($ENV{OPENSSL_MODULES} // '') eq '' && -d $std_providers;
46     if ($ENV{OPENSSL_CONF} // '') eq '' && -f $std_openssl_conf;
54 } elsif (-x $unix_shlib_wrap) {
61 # The exec() statement on MSWin32 doesn't seem to give back the exit code
65 # According to documentation, -1 means that system() couldn't run the command,
69     if $waitcode == -1;
75 # converting the signal code to an exit code by setting the high bit.
78 exit(($? & 255) | 128) if ($? & 255) != 0;
80 # When not a signal, just shift down the subprocess exit code and use that.
83 # For VMS, perl recommendations is to emulate what the C library exit() does
84 # for all non-zero exit codes, except we set the error severity rather than
86 # Ref: https://perldoc.perl.org/perlport#exit
90         0x35a000                # C facility code
95 exit($exitcode);