Fix a DTLS memory leak

[openssl.git] / VMS / openssl_startup.com.in

diff --git a/VMS/openssl_startup.com.in b/VMS/openssl_startup.com.in
index c2c36891f4c3a36188c78178d0087d30bec59621..9e6e1c0b35bea0731ced801bd83bf854ea69fa99 100644 (file)
--- a/VMS/openssl_startup.com.in
+++ b/VMS/openssl_startup.com.in
@@ -88,7 +88,7 @@ $
 $      ! Abbrevs
 $      DEFT := DEFINE /TRANSLATION=CONCEALED /NOLOG 'P1'
 $      DEF  := DEFINE /NOLOG 'P1'
-$      sv   := {- sprintf "%02d%02d", $config{shlib_major}, $config{shlib_minor} -}
+$      sv   := {- sprintf "%02d%02d", split m|\.|, $config{shlib_version_number} -}
 $      pz   := {- $config{pointer_size} -}
 $
 $      DEFT OSSL$DATAROOT              'OPENSSLDIR_']
@@ -96,20 +96,24 @@ $   DEFT OSSL$INSTROOT              'INSTALLTOP_']
 $      DEFT OSSL$INCLUDE               'INSTALLTOP_'INCLUDE.]
 $      DEF  OSSL$LIB                   OSSL$INSTROOT:[LIB.'arch']
 $      DEF  OSSL$SHARE                 OSSL$INSTROOT:[LIB.'arch']
-$      DEF  OSSL$ENGINES'sv'           OSSL$INSTROOT:[ENGINES'sv'.'arch']
+$      DEF  OSSL$ENGINES'sv''pz'       OSSL$INSTROOT:[ENGINES'sv''pz'.'arch']
 $      DEF  OSSL$EXE                   OSSL$INSTROOT:[EXE.'arch'],-
                                        OSSL$INSTROOT:[EXE]
 $      DEF  OSSL$LIBCRYPTO'pz'         OSSL$LIB:OSSL$LIBCRYPTO'pz'.OLB
 $      DEF  OSSL$LIBSSL'pz'            OSSL$LIB:OSSL$LIBSSL'pz'.OLB
+${- output_off() if $config{no_shared}; "" -}
 $      DEF  OSSL$LIBCRYPTO'sv'_SHR'pz' OSSL$SHARE:OSSL$LIBCRYPTO'sv'_SHR'pz'.EXE
 $      DEF  OSSL$LIBSSL'sv'_SHR'pz'    OSSL$SHARE:OSSL$LIBSSL'sv'_SHR'pz'.EXE
+${- output_on() if $config{no_shared}; "" -}
 $      DEF  OPENSSL                    OSSL$INCLUDE:[OPENSSL]
 $
 $      IF P2 .NES. "NOALIASES"
 $      THEN
-$          DEF OSSL$ENGINES            OSSL$ENGINES'sv'
+$          DEF OSSL$ENGINES'pz'        OSSL$ENGINES'sv''pz'
+${- output_off() if $config{no_shared}; "" -}
 $          DEF OSSL$LIBCRYPTO_SHR'pz'  OSSL$LIBCRYPTO'sv'_SHR'pz'
 $          DEF OSSL$LIBSSL_SHR'pz'     OSSL$LIBSSL'sv'_SHR'pz'
+${- output_on() if $config{no_shared}; "" -}
 $      ENDIF
 $
 $ bailout: