remove verbose mode from system-introspector binary; that will go in next release

diff --git a/bin/system-introspector b/bin/system-introspector
index 2e5db02..da84e29 100755 (executable)
--- a/bin/system-introspector
+++ b/bin/system-introspector
@@ -16,7 +16,6 @@ GetOptions(
     's|storage=s'   => \my $storage_dir,
     'a|all'         => \my $update_all,
     'g|group=s'     => \my @update_groups,
-    'v|verbose'     => \my $verbose,
     'd|debug'       => \my $debug,
     'l|log-level=s' => \my $log_level,
     'h|help'        => sub { pod2usage(0) },
@@ -46,6 +45,14 @@ $warn_destination = Object::Remote::LogDestination->new({
 
 $warn_destination->connect(System::Introspector::Logger->arg_router);
 
+$stdout_destination = Object::Remote::LogDestination->new(
+    logger => System::Introspector::Logger::VerboseOutput->new({ 
+        levels => ['info'],
+    }),
+);  
+    
+$stdout_destination->connect(System::Introspector::Logger->arg_router);
+
 if (defined($log_level)) {
        $stderr_destination = Object::Remote::LogDestination->new(
           logger => System::Introspector::Logger::Output->new({ 
@@ -56,16 +63,6 @@ if (defined($log_level)) {
     $stderr_destination->connect(System::Introspector::Logger->arg_router);
 }
 
-if (defined($verbose)) {
-    $stdout_destination = Object::Remote::LogDestination->new(
-        logger => System::Introspector::Logger::VerboseOutput->new({ 
-            levels_upto => 'info',
-        }),
-    );  
-    
-    $stdout_destination->connect(System::Introspector::Logger->arg_router);
-}
-
 $config_file = "$storage_dir/main.conf" unless defined $config_file;
 
 my $config = System::Introspector::Config->new(config_file => $config_file);
@@ -115,10 +112,6 @@ Fetch all groups.
 
 Fetch the specified group. Can be used multiple times.
 
-=head2 -v, --verbose
-
-Output progress information to STDOUT
-
 =head2 -d, --debug
 
 Force the log level to debug unless -l or --log-level is specified