Move definition of logging constants to logging section.

diff --git a/minc b/minc
index c192e59..6197d22 100755 (executable)
--- a/minc
+++ b/minc
@@ -34,19 +34,6 @@ use Log::Dispatch;
 use Log::Dispatch::File;
 use POSIX qw(strftime WEXITSTATUS WIFEXITED);
 
 use Log::Dispatch::File;
 use POSIX qw(strftime WEXITSTATUS WIFEXITED);
 

-# debuglevels for the logger
-use constant LOG_DEBUGLEVEL     => 'info';
-use constant SCREEN_DEBUGLEVEL  => 'debug';
-
-# characters used to wrap around the id field in the log so I can more
-# easily parse the msg flow
-use constant DEBUGCHAR          => '%';
-use constant INFOCHAR           => '=';
-use constant INCOMINGCHAR       => '<';
-use constant SAVECHAR           => '>';
-use constant WARNCHAR           => 'W';
-use constant ERRORCHAR          => 'E';
-

 =head1 OPTIONS
 
 =over 4
 =head1 OPTIONS
 
 =over 4


@@ -164,6 +151,19 @@ if ($run) {
 ###############################################################################
 # Logging
 
 ###############################################################################
 # Logging
 

+# debuglevels for the logger
+use constant LOG_DEBUGLEVEL     => 'info';
+use constant SCREEN_DEBUGLEVEL  => 'debug';
+
+# characters used to wrap around the id field in the log so I can more
+# easily parse the msg flow
+use constant DEBUGCHAR          => '%';
+use constant INFOCHAR           => '=';
+use constant INCOMINGCHAR       => '<';
+use constant SAVECHAR           => '>';
+use constant WARNCHAR           => 'W';
+use constant ERRORCHAR          => 'E';
+

 my $logger = new Log::Dispatch;
 $logger->add(new Log::Dispatch::File (name=>'logfile',
                                       filename=>$logfile,
 my $logger = new Log::Dispatch;
 $logger->add(new Log::Dispatch::File (name=>'logfile',
                                       filename=>$logfile,