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