Fixed table debug messages to be more portable

[catagits/Catalyst-Runtime.git] / lib / Catalyst.pm

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index a412efa..768ad23 100644 (file)
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -149,7 +149,7 @@ sub import {
     foreach (@arguments) {
 
         if ( /^-Debug$/ ) {
-            $flags->{log} = 1
+            $flags->{log} = ( $flags->{log} ) ? 'debug,' . $flags->{log} : 'debug';
         }
         elsif (/^-(\w+)=?(.*)$/) {
             $flags->{ lc $1 } = $2;
@@ -198,7 +198,7 @@ sub import {
             $t->setCols('Class');
             $t->setColWidth( 'Class', 75, 1 );
             $t->addRow($_) for @plugins;
-            $caller->log->debug( 'Loaded plugins', $t->draw );
+            $caller->log->debug( "Loaded plugins:\n" . $t->draw );
         }
 
         my $dispatcher = $caller->dispatcher;