| Index: openssl/util/arx.pl
|
| ===================================================================
|
| --- openssl/util/arx.pl (revision 105093)
|
| +++ openssl/util/arx.pl (working copy)
|
| @@ -1,15 +0,0 @@
|
| -#!/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;
|
|
|