--- 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";