push debug levels > 2 to WebPAC::Normalize, just like tests do

[webpac2] / run.pl

diff --git a/run.pl b/run.pl
index 8c04c91..0d96403 100755 (executable)
--- a/run.pl
+++ b/run.pl
@@ -153,6 +153,8 @@ pod2usage(-verbose => 2) if ($help);
 
 my $config = new WebPAC::Config( path => $config_path );
 
+WebPAC::Normalize::_debug( $debug - 1 ) if $debug > 1;
+
 #print "config = ",dump($config) if ($debug);
 
 die "no databases in config file!\n" unless ($config->databases);