From 7b5ffd683412b85d9b4195fc24b5966d41b591ae Mon Sep 17 00:00:00 2001
From: Richard Levitte <levitte@openssl.org>
Date: Mon, 29 Oct 2001 13:05:28 +0000
Subject: Addapt VMS scripts to the newer disk layout system ODS-5, which
 allows more than one period and mixed size characters in file names

---
 apps/makeapps.com | 1 +
 1 file changed, 1 insertion(+)

(limited to 'apps/makeapps.com')

diff --git a/apps/makeapps.com b/apps/makeapps.com
index d6651433dd..219f571d57 100644
--- a/apps/makeapps.com
+++ b/apps/makeapps.com
@@ -1113,6 +1113,7 @@ $!
 $! Save directory information
 $!
 $ __HERE = F$PARSE(F$PARSE("A.;",F$ENVIRONMENT("PROCEDURE"))-"A.;","[]A.;") - "A.;"
+$ __HERE = F$EDIT(__HERE,"UPCASE")
 $ __TOP = __HERE - "APPS]"
 $ __INCLUDE = __TOP + "INCLUDE.OPENSSL]"
 $!
-- 
cgit v1.2.3