summaryrefslogtreecommitdiffstats
path: root/util/arx.pl
blob: ce62625c3349cb56c56b7306da966ec6e71f1e77 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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;