removed experimental feature, mt

diff --git a/dmon/code/Dmon.pm b/dmon/code/Dmon.pm
index 3c76d789f1232ae8f0447437293e603614e90c19..4052662e043afea9c087678b6db751b7d7c61ae8 100644 (file)
--- a/dmon/code/Dmon.pm
+++ b/dmon/code/Dmon.pm
@@ -36,7 +36,7 @@ sub MakeRate {
   my $res;
   return unless defined $t;  
 
-  foreach my $b (keys $t) {
+  foreach my $b (keys %$t) {
     for my $i (0..((scalar @{$t->{$b}{value}})-1)) {
       my $value    = $t->{$b}{value}[$i]||0;
          $value    = ($value>>$pos) & (2**$width-1);