Update of /cvsroot/fink/experimental/dmacks/scripts
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv21581
Modified Files:
flag-sort
Log Message:
Implement -v flag so can see what's being spawned (forgot to commit this on
2009/05/07)
Index: flag-sort
===================================================================
RCS file: /cvsroot/fink/experimental/dmacks/scripts/flag-sort,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- flag-sort 19 Jun 2009 17:51:32 -0000 1.3
+++ flag-sort 19 Jun 2009 17:53:36 -0000 1.4
@@ -28,9 +28,16 @@
my %flag_queues = (); # $flag => \...@paths_for_flag
my @other_queue = (); # things not fitting into any of %flag_queues
+my $verbose = 0;
+if (@ARGV && $ARGV[0] eq '-v') {
+ $verbose = 1;
+ shift;
+}
+
if (!...@argv) {
- warn "Usage: $0 cmd [flags for cmd]\n";
+ warn "Usage: $0 [-v] cmd [flags for cmd]\n";
warn " resort [flags for cmd] and call cmd with them\n";
+ warn " -v causes display of some diagnostics on STDOUT\n";
exit 1;
}
@@ -83,5 +90,5 @@
#warn "$0: @other_queue\n";
push @subcmd, @other_queue;
-#warn "$0: $subcmd @subarg\n";
+print "$0: @subcmd\n" if $verbose;
exec {$subcmd[0]} @subcmd or die "Could not exec $subcmd[0]: $!\n";
------------------------------------------------------------------------------
Are you an open source citizen? Join us for the Open Source Bridge conference!
Portland, OR, June 17-19. Two days of sessions, one day of unconference: $250.
Need another reason to go? 24-hour hacker lounge. Register today!
http://ad.doubleclick.net/clk;215844324;13503038;v?http://opensourcebridge.org
_______________________________________________
Fink-commits mailing list
Fink-commits@lists.sourceforge.net
http://news.gmane.org/gmane.os.apple.fink.cvs
