projects
/
oweals
/
openssl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
bn/asm/rsaz-*.pl: allow spaces in Perl path name.
[oweals/openssl.git]
/
test
/
tcrl.com
diff --git
a/test/tcrl.com
b/test/tcrl.com
index 1f606eb850800fe44c078aa60927bbcd5c4621fd..dd96a2b6dd7554d0e2ca109ec78dc66f8af8d3e9 100644
(file)
--- a/
test/tcrl.com
+++ b/
test/tcrl.com
@@
-1,14
+1,17
@@
$! TCRL.COM -- Tests crl keys
$
$! TCRL.COM -- Tests crl keys
$
-$ __arch
:= VAX
+$ __arch
= "VAX"
$ if f$getsyi("cpu") .ge. 128 then -
__arch = f$edit( f$getsyi( "ARCH_NAME"), "UPCASE")
$ if f$getsyi("cpu") .ge. 128 then -
__arch = f$edit( f$getsyi( "ARCH_NAME"), "UPCASE")
-$ if __arch .eqs. "" then __arch := UNK
-$ exe_dir := sys$disk:[-.'__arch'.exe.apps]
+$ if __arch .eqs. "" then __arch = "UNK"
+$!
+$ if (p2 .eqs. "64") then __arch = __arch+ "_64"
+$!
+$ exe_dir = "sys$disk:[-.''__arch'.exe.apps]"
$
$
-$ cmd
:= mcr 'exe_dir'openssl crl
+$ cmd
= "mcr ''exe_dir'openssl crl"
$
$
-$ t
:= testcrl.pem
+$ t
= "testcrl.pem"
$ if p1 .nes. "" then t = p1
$
$ write sys$output "testing CRL conversions"
$ if p1 .nes. "" then t = p1
$
$ write sys$output "testing CRL conversions"