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