summaryrefslogtreecommitdiffstats
path: root/VMS/openssl_undo.com
diff options
context:
space:
mode:
authorRichard Levitte <levitte@openssl.org>2011-03-19 09:47:47 +0000
committerRichard Levitte <levitte@openssl.org>2011-03-19 09:47:47 +0000
commit01d2e27a2badb0a01706fe58738df67cc7e90b9c (patch)
tree4210b520add8e3ea3f9580ab7c94f10b3402ed1d /VMS/openssl_undo.com
parentdd7aadf7b2db65de2ec1eca6e598d07864d3ace4 (diff)
Apply all the changes submitted by Steven M. Schweda <sms@antinode.info>
Diffstat (limited to 'VMS/openssl_undo.com')
-rwxr-xr-xVMS/openssl_undo.com20
1 files changed, 20 insertions, 0 deletions
diff --git a/VMS/openssl_undo.com b/VMS/openssl_undo.com
new file mode 100755
index 0000000000..d1623a3160
--- /dev/null
+++ b/VMS/openssl_undo.com
@@ -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
+$!