Fix VMS/openssl_{startup,shutddown}.com.in

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

diff --git a/VMS/openssl_shutdown.com.in b/VMS/openssl_shutdown.com.in
index 236979eab22c57fc2c2972250576751a86239be5..53853623046f1641cd03f8a2e7aa53f4b2c13f11 100644 (file)
--- a/VMS/openssl_shutdown.com.in
+++ b/VMS/openssl_shutdown.com.in
@@ -39,9 +39,7 @@ $     DEAS OSSL$LIB'v'
 $      DEAS OSSL$SHARE'v'
 $      DEAS OSSL$ENGINES'v'
 $      DEAS OSSL$EXE'v'
-$       {- output_off() if $disabled{shared} -}
-$       {- join("\n\$       ", map { "DEAS $_'v'" } map { $unified_info{sharednames}->{$_} || () } @{$unified_info{libraries}}) -}
-$       {- output_on() -}
+$       {- join("\n\$       ", map { my $x = uc $_; "DEAS ${x}'v'" } @{$config{shared_libs}}) -}
 $      IF P2 .NES. "NOALIASES"
 $      THEN
 $          DEAS OSSL$ROOT
@@ -51,9 +49,7 @@ $         DEAS OSSL$SHARE
 $          DEAS OSSL$ENGINES
 $          DEAS OSSL$EXE
 $          DEAS OPENSSL
-$           {- output_off() if $disabled{shared} -}
-$           {- join("\n\$           ", map { "DEAS $_" } map { $unified_info{sharednames}->{$_} || () } @{$unified_info{libraries}}) -}
-$           {- output_on() -}
+$           {- join("\n\$           ", map { my $x = uc $_; "DEAS ${x}" } @{$config{shared_libs}}) -}
 $      ENDIF
 $
 $      EXIT 'status'