VMS: fix util/[un]local.com.in to handle attributes

[openssl.git] / util / unlocal_shlib.com.in

diff --git a/util/unlocal_shlib.com.in b/util/unlocal_shlib.com.in
index 67120c6e787a77f18d0600c0647339dc43e6f000..feade87ef8a5127ac28b78ff45f6e937ec290bb1 100644 (file)
--- a/util/unlocal_shlib.com.in
+++ b/util/unlocal_shlib.com.in
@@ -2,17 +2,17 @@ ${-
   use File::Spec::Functions qw(rel2abs);
 
   my $bldtop = rel2abs($config{builddir});
-  our %names = ( ( map { $_ => $bldtop.$_.".EXE" }
-                   map { $unified_info{sharednames}->{$_} || () }
-                   @{$unified_info{libraries}} ),
-                 'DBG$IMAGE_DSF_PATH' => $bldtop );
+  our %names = ( map { platform->sharedname($_) =>
+                           $bldtop.platform->sharedlib($_) }
+                 grep { !$unified_info{attributes}->{$_}->{noinst} }
+                 @{$unified_info{libraries}} );
   "" -}
 $       ! Remove the local environment created by local_shlib.com
 $
 $       OPENSSL_NAMES := OPENSSL_NAMES_'F$GETJPI("","PID")'
 $       IF F$TRNLNM("OSSL_FLAG",OPENSSL_NAMES) .EQS. "" THEN EXIT 0
 $
-$       NAMES := {- join(",", keys %names); -}
+$       NAMES := {- join(",", sort keys %names); -}
 $       I = 0
 $       LOOP:
 $           E = F$ELEMENT(I,",",NAMES)