- Honor log level switch

1 files changed, 4 insertions, 3 deletions

diff --git a/iurt2 b/iurt2
index 61842ac..4cd800d 100755
--- a/iurt2
+++ b/iurt2
@@ -353,9 +353,7 @@ $run{todo} = [];
 open(my $LOG, ">&STDERR");
 $run{LOG} = sub { print $LOG @_ };
 
-plog_init($program_name, $LOG, $run{verbose}, 1);
-#plog_init($program_name, $LOG, 7, 1); # CM: hardcoded for now, will fix ASAP
-
+plog_init($program_name, $LOG, 7, 1); # For parsing command line
 
 # Display version information
 #
@@ -373,6 +371,9 @@ foreach my $t (@$todo)  {
     &{$t->[0]}(@{$t->[1]}) or plog('ERR', $t->[2]);
 }
 
+# Use the real verbose level
+plog_init($program_name, $LOG, $run{verbose}, 1);
+
 $run{distro_tag} = $run{distro};
 $run{distro_tag} =~ s,/,-,g;