Fix email address delete code.

[openssl.git] / VMS / install.com

diff --git a/VMS/install.com b/VMS/install.com
index d941392c23e1412aaf6ad4be59fd3857534e83d0..f62635f24dc04852a4e2f6eddd634b6d75266141 100644 (file)
--- a/VMS/install.com
+++ b/VMS/install.com
@@ -34,9 +34,8 @@ $     IF F$PARSE("WRK_SSLINCLUDE:") .EQS. "" THEN -
 $      IF F$PARSE("WRK_SSLROOT:[VMS]") .EQS. "" THEN -
           CREATE/DIR/LOG WRK_SSLROOT:[VMS]
 $
-$      EXHEADER := vms_idhacks.h
-$
-$      COPY 'EXHEADER' WRK_SSLINCLUDE: /LOG
+$      IF F$SEARCH("WRK_SSLINCLUDE:vms_idhacks.h") .NES. "" THEN -
+          DELETE WRK_SSLINCLUDE:vms_idhacks.h;*
 $
 $      OPEN/WRITE SF WRK_SSLROOT:[VMS]OPENSSL_STARTUP.COM
 $      WRITE SYS$OUTPUT "%OPEN-I-CREATED,  ",F$SEARCH("WRK_SSLROOT:[VMS]OPENSSL_STARTUP.COM")," created."
@@ -65,7 +64,9 @@ $     WRITE SF "         @SSLROOT:[VMS]OPENSSL_SYSTARTUP.COM"
 $      WRITE SF "$"
 $      WRITE SF "$     EXIT"
 $      CLOSE SF
+$      SET FILE/PROT=WORLD:RE WRK_SSLROOT:[VMS]OPENSSL_STARTUP.COM
 $
 $      COPY OPENSSL_UTILS.COM WRK_SSLROOT:[VMS]/LOG
+$      SET FILE/PROT=WORLD:RE WRK_SSLROOT:[VMS]OPENSSL_UTILS.COM
 $
 $      EXIT