Improvements in variable resolving

Author: iph0

Changes

@@ -35,4 +35,3 @@ Revision history for Perl extension Config::Processor.
 
 0.02 Wed Apr 27 11:55:00 MSK 2016
   - Initial release.
-

README

@@ -1,4 +1,4 @@
-Config-Processor version 0.21_01
+Config-Processor version 0.21_02
 =============================
 
 INSTALLATION
@@ -29,4 +29,3 @@ All rights reserved.
 
 This module is free software; you can redistribute it and/or modify it under
 the same terms as Perl itself.
-

lib/Config/Processor.pm

@@ -4,7 +4,7 @@ use 5.008000;
 use strict;
 use warnings;
 
-our $VERSION = '0.21_01';
+our $VERSION = '0.21_02';
 
 use File::Spec;
 use YAML::XS qw( LoadFile );
@@ -284,7 +284,7 @@ sub _resolve_var {
   my $ancs = shift;
 
   if ( $name =~ m/^\./ ) {
-    my @tokens    = split( /\./, $name );
+    my @tokens    = split( /\./, $name, -1 );
     my $anc_index = -1;
 
     while (1) {
@@ -295,6 +295,9 @@ sub _resolve_var {
       last if length($token) > 0;
 
       shift @tokens;
+
+      last unless @tokens;
+
       $anc_index++;
     }
 
@@ -315,7 +318,7 @@ sub _resolve_var {
   my $vars = $self->{_vars};
 
   unless ( defined $vars->{$name} ) {
-    my @tokens = split( /\./, $name );
+    my @tokens = split( /\./, $name, -1 );
 
     my $value = eval {
       $self->_fetch_value( $self->{_config}, \@tokens, $ancs );
@@ -339,6 +342,10 @@ sub _fetch_value {
   my $tokens = shift;
   my $ancs   = shift;
 
+  unless ( @{$tokens} ) {
+    return $node;
+  }
+
   my $value;
   my @anc_stack = @{$ancs};