Bugfixing

git-svn-id: http://svn.brehm-online.com/svn/my-stuff/Perl@117 ec8d2aa5-1599-4edb-8739-2b3a1bc399aa

diff --git a/lib/FrBr/Common/MooseX/Role/TestMode.pm b/lib/FrBr/Common/MooseX/Role/TestMode.pm
index bfea55741fb0e0efeb036f13cfc5e88f34ddd7e8..2c2b8dea165e8ec50560841aca06140960e23e3f 100644 (file)
--- a/lib/FrBr/Common/MooseX/Role/TestMode.pm
+++ b/lib/FrBr/Common/MooseX/Role/TestMode.pm
@@ -87,9 +87,11 @@ after 'evaluate_config' => sub {
         my $tmp = $self->testmode;
     }
 
-    for my $key ( keys %{ $self->config } ) {
-        my $val = $self->config->{$key};
-        $self->testmode($val) if $key =~ /^test[_-]?mode$/i;
+    unless ( $self->used_cmd_params->{'testmode'} ) {
+        for my $key ( keys %{ $self->config } ) {
+            my $val = $self->config->{$key};
+            $self->testmode($val) if $key =~ /^test[_-]?mode$/i;
+        }
     }
 
 };

diff --git a/lib/FrBr/Common/MooseX/Role/WithPidFile.pm b/lib/FrBr/Common/MooseX/Role/WithPidFile.pm
index 06ca824002b6393b459fc24ada6683ce6908bee9..b8023e5846795007d3006238772c59e17572e9a8 100644 (file)
--- a/lib/FrBr/Common/MooseX/Role/WithPidFile.pm
+++ b/lib/FrBr/Common/MooseX/Role/WithPidFile.pm
@@ -252,8 +252,12 @@ after 'evaluate_config' => sub {
         $self->debug( "Werte Konfigurationsdinge aus ..." );
         for my $key ( keys %{ $self->config } ) {
             my $val = $self->config->{$key};
-            $self->piddir($val) if $key =~ /^pid[_-]?dir$/i;
-            $self->pidfile($val) if $key =~ /^pid[_-]?file$/i;
+            unless ( $self->used_cmd_params->{'piddir'} ) {
+                $self->piddir($val) if $key =~ /^pid[_-]?dir$/i;
+            }
+            unless ( $self->used_cmd_params->{'pidfile'} ) {
+                $self->pidfile($val) if $key =~ /^pid[_-]?file$/i;
+            }
         }
     }