ACE/bin/reverse_clean

   1 eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
   2     & eval 'exec perl -S $0 $argv:q'
   3     if 0;
   4 # -*- perl -*-
   5 # This script does a realclean of the list in the reverse order that
   6 # is passed to this. This is just a utility script
   7
   8 @ARGS = ();
   9
  10 if ($ARGV[0] eq ''){
  11     print STDERR "$0:  No directories provided\n";
  12     die "provide list of directories";
  13 }
  14
  15 my $make = $ARGV[0];
  16 shift;
  17
  18 @BUILD_LIST = @ARGV;
  19
  20
  21 foreach $i (reverse (@BUILD_LIST)) {
  22     system ("$make -k -C $i realclean");
  23 }