Skip to main content
Revision 4d27e3d339ea3e6bff22f96ef2f7b67dc25899d7 authored by Andy Polyakov on 21 August 2007, 15:26:51 UTC, committed by Andy Polyakov on 21 August 2007, 15:26:51 UTC
Make tesfipsssl pass.
1 parent 7d59e44
Raw File
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;
back to top