Index: openssl/VMS/openssl_undo.com |
=================================================================== |
--- openssl/VMS/openssl_undo.com (revision 0) |
+++ openssl/VMS/openssl_undo.com (revision 0) |
@@ -0,0 +1,20 @@ |
+$! |
+$! Deassign OpenSSL logical names. |
+$! |
+$ call deass "OPENSSL" "''p1'" |
+$ call deass "SSLCERTS" "''p1'" |
+$ call deass "SSLEXE" "''p1'" |
+$ call deass "SSLINCLUDE" "''p1'" |
+$ call deass "SSLLIB" "''p1'" |
+$ call deass "SSLPRIVATE" "''p1'" |
+$ call deass "SSLROOT" "''p1'" |
+$! |
+$ exit |
+$! |
+$deass: subroutine |
+$ if (f$trnlnm( p1) .nes. "") |
+$ then |
+$ deassign 'p2' 'p1' |
+$ endif |
+$ endsubroutine |
+$! |