Revision 02f0c26cea09e4ea847fba303a856b9475382ba5 authored by Matt Caswell on 05 January 2015, 11:30:03 UTC, committed by Matt Caswell on 22 January 2015, 09:53:07 UTC
This should be a one off operation (subsequent invokation of the script should not move them) This commit is for the 0.9.8 changes Reviewed-by: Tim Hudson <tjh@openssl.org>
1 parent 6f1f3c6
arx.pl
#!/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;

Computing file changes ...