tools/build-watch.pl
changeset 32 280a7444e782
parent 17 56b936d4786f
child 3770 ca450a806cc1
--- a/tools/build-watch.pl	Wed Aug 25 11:58:58 2010 -0700
+++ b/tools/build-watch.pl	Thu Sep 02 11:07:22 2010 -0500
@@ -116,7 +116,7 @@
 # Main execution begins here
 #
 GetOptions("c|command=s" => \$cmd, "i|input-file=s" => \@file,
-	   "v|verbose" => \$verbose);
+	   "p|pkg" => \$pkg_flag, "v|verbose" => \$verbose);
 
 if (defined($cmd)) {
 	$file = (tempfile(UNLINK => 1))[1];
@@ -132,8 +132,10 @@
 ($verbose == 1) && printf("*** Processing results...\n");
 my ($tools, $files) = process_dtrace_results($file);
 
-($verbose == 1) && printf("*** Generating package requirements...\n");
-my ($pkgs) = generate_package_requirements($tools, $files);
+if (defined($pkg_flag)) {
+	($verbose == 1) && printf("*** Generating package requirements...\n");
+	my ($pkgs) = generate_package_requirements($tools, $files);
+}
 
 if (defined($tools)) {
 	print "\n";