diff options
| author | Dr. Stephen Henson <steve@openssl.org> | 2011-01-26 01:35:07 +0000 |
|---|---|---|
| committer | Dr. Stephen Henson <steve@openssl.org> | 2011-01-26 01:35:07 +0000 |
| commit | 3d6a8954f8f2c247e6cc1dd2cb9879cd470dc2ce (patch) | |
| tree | f85b747374f7f39589d2b330b9540c1b17a5648a /util | |
| parent | c11845a4ab3bbfd39f36ace3e76c832bb642b9b8 (diff) | |
| download | openssl-3d6a8954f8f2c247e6cc1dd2cb9879cd470dc2ce.tar.gz | |
update mkerr.pl for use fips directory, add arx.pl script
Diffstat (limited to 'util')
| -rw-r--r-- | util/arx.pl | 15 | ||||
| -rw-r--r-- | util/mkerr.pl | 3 |
2 files changed, 17 insertions, 1 deletions
diff --git a/util/arx.pl b/util/arx.pl new file mode 100644 index 0000000000..ce62625c33 --- /dev/null +++ b/util/arx.pl @@ -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; diff --git a/util/mkerr.pl b/util/mkerr.pl index 15b774f277..5dd89582c5 100644 --- a/util/mkerr.pl +++ b/util/mkerr.pl @@ -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; } |