1*e0c4386eSCy Schubert${- 2*e0c4386eSCy Schubert use File::Spec::Functions qw(rel2abs); 3*e0c4386eSCy Schubert 4*e0c4386eSCy Schubert my $bldtop = rel2abs($config{builddir}); 5*e0c4386eSCy Schubert our %names = ( map { platform->sharedname($_) => 6*e0c4386eSCy Schubert $bldtop.platform->sharedlib($_) } 7*e0c4386eSCy Schubert grep { !$unified_info{attributes}->{libraries}->{$_}->{noinst} } 8*e0c4386eSCy Schubert @{$unified_info{libraries}} ); 9*e0c4386eSCy Schubert "" -} 10*e0c4386eSCy Schubert$ ! Remove the local environment created by local_shlib.com 11*e0c4386eSCy Schubert$ 12*e0c4386eSCy Schubert$ OPENSSL_NAMES := OPENSSL_NAMES_'F$GETJPI("","PID")' 13*e0c4386eSCy Schubert$ IF F$TRNLNM("OSSL_FLAG",OPENSSL_NAMES) .EQS. "" THEN EXIT 0 14*e0c4386eSCy Schubert$ 15*e0c4386eSCy Schubert$ NAMES := {- join(",", sort keys %names); -} 16*e0c4386eSCy Schubert$ I = 0 17*e0c4386eSCy Schubert$ LOOP: 18*e0c4386eSCy Schubert$ E = F$ELEMENT(I,",",NAMES) 19*e0c4386eSCy Schubert$ I = I + 1 20*e0c4386eSCy Schubert$ IF E .EQS. "," THEN GOTO ENDLOOP 21*e0c4386eSCy Schubert$ OLDV = F$TRNLNM(E,OPENSSL_NAMES) 22*e0c4386eSCy Schubert$ DEASSIGN 'E' 23*e0c4386eSCy Schubert$ IF OLDV .NES. "" THEN DEFINE 'E' 'OLDV' 24*e0c4386eSCy Schubert$ GOTO LOOP 25*e0c4386eSCy Schubert$ ENDLOOP: 26*e0c4386eSCy Schubert$ 27*e0c4386eSCy Schubert$ DEASSIGN 'OPENSSL_NAMES' /TABLE=LNM$PROCESS_DIRECTORY 28