[Devmon-devel] SF.net SVN: devmon:[248] trunk/modules/dm_tests.pm

[<buc...@us...>]

Revision: 248
          http://sourceforge.net/p/devmon/code/248
Author:   buchanmilne
Date:     2015-06-02 14:46:00 +0000 (Tue, 02 Jun 2015)
Log Message:
-----------
Some fixes for MATCH operator

Modified Paths:
--------------
    trunk/modules/dm_tests.pm

Modified: trunk/modules/dm_tests.pm
===================================================================
--- trunk/modules/dm_tests.pm	2015-03-13 16:50:33 UTC (rev 247)
+++ trunk/modules/dm_tests.pm	2015-06-02 14:46:00 UTC (rev 248)
@@ -1766,17 +1766,17 @@
           $oid_h->{'error'}{$leaf} = 1;
           next;
 	}
-	do_log("$val matched $expr, assigning new $idx from old row $leaf",0) if $g{'debug'} and  $res;
+	do_log("$val matched $expr, assigning new row $idx from old row $leaf",0) if $g{'debug'} and $res;
 	next unless $res;
 
        # Our oid sub leaf
        # my $oid_idx = $src_h->{'val'}{$leaf};
 
         if(!defined $leaf) {
-          $oid_h->{'val'}{$leaf}    = 'Target val missing - index';
-          $oid_h->{'time'}{$leaf}   = time;
-          $oid_h->{'color'}{$leaf}  = 'yellow';
-          $oid_h->{'error'}{$leaf}  = 1;
+          $oid_h->{'val'}{$idx}    = 'Target val missing - index';
+          $oid_h->{'time'}{$idx}   = time;
+          $oid_h->{'color'}{$idx}  = 'yellow';
+          $oid_h->{'error'}{$idx}  = 1;
           next;
         }
         

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.