Set Enveloped data version to 2 if ktri version not zero.
[openssl.git] / VMS / openssl_undo.com
1 $!
2 $! Deassign OpenSSL logical names.
3 $!
4 $ call deass "OPENSSL" "''p1'"
5 $ call deass "SSLCERTS" "''p1'"
6 $ call deass "SSLEXE" "''p1'"
7 $ call deass "SSLINCLUDE" "''p1'"
8 $ call deass "SSLLIB" "''p1'"
9 $ call deass "SSLPRIVATE" "''p1'"
10 $ call deass "SSLROOT" "''p1'"
11 $!
12 $ exit
13 $!
14 $deass: subroutine
15 $ if (f$trnlnm( p1) .nes. "")
16 $ then
17 $    deassign 'p2' 'p1'
18 $ endif
19 $ endsubroutine
20 $!