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