Addapt VMS scripts to the newer disk layout system ODS-5, which allows more than...

[openssl.git] / ssl / ssl-lib.com

diff --git a/ssl/ssl-lib.com b/ssl/ssl-lib.com
index cc64544..313ff25 100644 (file)
--- a/ssl/ssl-lib.com
+++ b/ssl/ssl-lib.com
@@ -1174,6 +1174,7 @@ $!
 $! Save directory information
 $!
 $ __HERE = F$PARSE(F$PARSE("A.;",F$ENVIRONMENT("PROCEDURE"))-"A.;","[]A.;") - "A.;"
+$ __HERE = F$EDIT(__HERE,"UPCASE")
 $ __TOP = __HERE - "SSL]"
 $ __INCLUDE = __TOP + "INCLUDE.OPENSSL]"
 $!