[Bps-public-commit] r16087 - CPAN2RT/lib

[ruz at bestpractical.com]

Author: ruz
Date: Thu Sep 25 23:03:45 2008
New Revision: 16087

Modified:
   CPAN2RT/lib/CPAN2RT.pm

Log:
* adjust logging to screen according to command line options

Modified: CPAN2RT/lib/CPAN2RT.pm
==============================================================================
--- CPAN2RT/lib/CPAN2RT.pm	(original)
+++ CPAN2RT/lib/CPAN2RT.pm	Thu Sep 25 23:03:45 2008
@@ -72,11 +72,16 @@
     unshift @INC, File::Spec->catdir( $home, 'lib' );
     unshift @INC, File::Spec->catdir( $home, 'local', 'lib' );
 
+    $DEBUG = $self->{'debug'};
+
     require RT;
     RT::LoadConfig();
+    if ( $DEBUG ) {
+        $RT::LogToScreen = 'debug';
+    } else {
+        $RT::LogToScreen = 'warning';
+    }
     RT::Init();
-
-    $DEBUG = $self->{'debug'};
 }
 
 sub sync_files {