From: Christian Hansen <chansen@cpan.org>
Date: Fri, 17 Jun 2005 02:34:56 +0000 (+0000)
Subject: Don't override debug flag if set
X-Git-Tag: 5.7099_04~1309
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=c5c6debaeee50edaeec51abfbf82787e5395ab33;hp=38cb5be33d7e884a6bc604f7e55ffa7a436475d1

Don't override debug flag if set
---

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index a412efa..61439c2 100644
--- 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;