Fixed assignment of default list of configuration directories

Author: iph0

Changes

@@ -1,5 +1,8 @@
 Revision history for Perl extension Config::Processor.
 
+0.14 Thu Nov 25 16:34:45 MSK 2016
+  - BUGFIX: Fixed assignment of default list of configuration directories.
+
 0.12 Thu Nov 24 11:36:40 MSK 2016
   - Decreased version of required modules YAML::XS and Cpanel::JSON::XS.
 
@@ -16,7 +19,7 @@ Revision history for Perl extension Config::Processor.
 
 0.04 Thu Apr 28 14:39:38 MSK 2016
   - Data::Rmap was replaced by own function.
-  - Fixed wrong behavior during processing of directives.
+  - BUGFIX: Fixed wrong behavior during processing of directives.
   - Improved logic of tree traversal.
   - Improved logic of variable resolving.
 

README

@@ -1,4 +1,4 @@
-Config-Processor version 0.12
+Config-Processor version 0.14
 =============================
 
 INSTALLATION

lib/Config/Processor.pm

@@ -4,7 +4,7 @@ use 5.008000;
 use strict;
 use warnings;
 
-our $VERSION = '0.12';
+our $VERSION = '0.14';
 
 use File::Spec;
 use YAML::XS qw( LoadFile );
@@ -49,7 +49,9 @@ sub new {
   my $self = bless {}, $class;
 
   $self->{dirs} = $params{dirs} || [];
-  push( @{ $params{dirs} }, '.' );
+  unless ( @{ $self->{dirs} } ) {
+    push( @{ $self->{dirs} }, '.' );
+  }
 
   $self->{interpolate_variables} = exists $params{interpolate_variables}
       ? $params{interpolate_variables} : 1;
@@ -71,7 +73,7 @@ sub new {
     *{$name} = sub {
       my $self = shift;
 
-      if ( @_ ) {
+      if (@_) {
         $self->{$name} = shift;
       }