VMS: fix util/[un]local.com.in to handle attributes
[openssl.git] / util / local_shlib.com.in
index e49aa15c77921c0bc700b035e66c805fa02a89ef..2e2eaa6dcd42a78a76163d1a3a7a6aa19b34101b 100644 (file)
@@ -2,8 +2,9 @@ ${-
   use File::Spec::Functions qw(rel2abs);
 
   my $bldtop = rel2abs($config{builddir});
-  our %names = ( map { $_ => $bldtop.$_.".EXE" }
-                 map { $unified_info{sharednames}->{$_} || () }
+  our %names = ( map { platform->sharedname($_) =>
+                           $bldtop.platform->sharedlib($_) }
+                 grep { !$unified_info{attributes}->{$_}->{noinst} }
                  @{$unified_info{libraries}} );
   "" -}
 $       ! Create a local environment with the shared library logical names
@@ -15,7 +16,7 @@ $       DEFINE/TABLE='OPENSSL_NAMES' OSSL_FLAG YES
 $
 $       NAMES := {- join(",", keys %names); -}
 {-
-  join("\n", map { "\$       __$_ = \"".$names{$_}."\"" } keys %names);
+  join("\n", map { "\$       __$_ = \"".$names{$_}."\"" } sort keys %names);
 -}      
 $       I = 0
 $       LOOP: