mirror of
https://git.FreeBSD.org/src.git
synced 2025-01-17 15:27:36 +00:00
16 lines
337 B
Perl
16 lines
337 B
Perl
|
#!/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;
|