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 f9ae76b47be999989873829ef94b098f925e924c..feade87ef8a5127ac28b78ff45f6e937ec290bb1 100644 (file)
--- a/util/unlocal_shlib.com.in
+++ b/util/unlocal_shlib.com.in
@@ -1,7 +1,11 @@
 ${-
+  use File::Spec::Functions qw(rel2abs);
+
+  my $bldtop = rel2abs($config{builddir});
   our %names = ( map { platform->sharedname($_) =>
                            $bldtop.platform->sharedlib($_) }
-                 @{$unified_info{install}->{libraries}} );
+                 grep { !$unified_info{attributes}->{$_}->{noinst} }
+                 @{$unified_info{libraries}} );
   "" -}
 $       ! Remove the local environment created by local_shlib.com
 $