Bug: Specific node not found was returning all nodes.

diff --git a/system/modules/CNFNode.pm b/system/modules/CNFNode.pm
index 00e5a9de8a20197f3fcf766c678c5d8ecd828eda..31c517bce24afd874e8c31c60e025fdb7be3b156 100644 (file)
--- a/system/modules/CNFNode.pm
+++ b/system/modules/CNFNode.pm
@@ -347,15 +347,16 @@ sub node {
        return $self->{$path} if exists $self->{$path};
        $ret = $self->{'@$'};
        if($ret){
+            my $found;
             foreach my $n(@$ret){
                 # if(ref($n) ne'CNFNode'){cluck "$n is illegal node hash element in [".$self->toPath()."]" }
                 # else{
                     if ($n->{'_'} eq $path){
-                        $ret = $n; last
+                        $found = $n; last
                     }
                 # }
             }
-            return $ret if $ret
+            return $found if $found
        }
       return EMPTY
     }