Loading util/arx.pl 0 → 100644 +15 −0 Original line number Diff line number Diff line #!/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; util/mkerr.pl +2 −1 Original line number Diff line number Diff line Loading @@ -115,7 +115,8 @@ EOF } if($recurse) { @source = (<crypto/*.c>, <crypto/*/*.c>, <ssl/*.c>); @source = ( <crypto/*.c>, <crypto/*/*.c>, <ssl/*.c>, <fips/*.c>, <fips/*/*.c>); } else { @source = @ARGV; } Loading Loading
util/arx.pl 0 → 100644 +15 −0 Original line number Diff line number Diff line #!/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;
util/mkerr.pl +2 −1 Original line number Diff line number Diff line Loading @@ -115,7 +115,8 @@ EOF } if($recurse) { @source = (<crypto/*.c>, <crypto/*/*.c>, <ssl/*.c>); @source = ( <crypto/*.c>, <crypto/*/*.c>, <ssl/*.c>, <fips/*.c>, <fips/*/*.c>); } else { @source = @ARGV; } Loading