mirror of
https://github.com/openssl/openssl.git
synced 2024-11-28 20:44:10 +08:00
update mkerr.pl for use fips directory, add arx.pl script
This commit is contained in:
parent
c11845a4ab
commit
3d6a8954f8
15
util/arx.pl
Normal file
15
util/arx.pl
Normal file
@ -0,0 +1,15 @@
|
||||
#!/bin/perl
|
||||
|
||||
# Simple perl script to wrap round "ar" program and exclude any
|
||||
# object files in the environment variable EXCL_OBJ
|
||||
|
||||
map { s/^.*\/([^\/]*)$/$1/ ; $EXCL{$_} = 1} split(' ', $ENV{EXCL_OBJ});
|
||||
|
||||
#my @ks = keys %EXCL;
|
||||
#print STDERR "Excluding: @ks \n";
|
||||
|
||||
my @ARGS = grep { !exists $EXCL{$_} } @ARGV;
|
||||
|
||||
system @ARGS;
|
||||
|
||||
exit $? >> 8;
|
@ -115,7 +115,8 @@ EOF
|
||||
}
|
||||
|
||||
if($recurse) {
|
||||
@source = (<crypto/*.c>, <crypto/*/*.c>, <ssl/*.c>);
|
||||
@source = ( <crypto/*.c>, <crypto/*/*.c>, <ssl/*.c>,
|
||||
<fips/*.c>, <fips/*/*.c>);
|
||||
} else {
|
||||
@source = @ARGV;
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user