documentation should use "DHE" instead of "EDH"
[openssl.git] / util / arx.pl
1 #!/bin/perl
2
3 # Simple perl script to wrap round "ar" program and exclude any
4 # object files in the environment variable EXCL_OBJ
5
6 map { s/^.*\/([^\/]*)$/$1/ ; $EXCL{$_} = 1} split(' ', $ENV{EXCL_OBJ});
7
8 #my @ks = keys %EXCL;
9 #print STDERR "Excluding: @ks \n";
10
11 my @ARGS = grep { !exists $EXCL{$_} } @ARGV;    
12
13 system @ARGS;
14
15 exit $? >> 8;