Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
16 lines (9 sloc) 337 Bytes
# 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;
Jump to Line
Something went wrong with that request. Please try again.