dbm dbGet returns wrong field order

[infobot.git] / src / dbm.pl

diff --git a/src/dbm.pl b/src/dbm.pl
index e1300ed462ce0aeabf0ca481a61ae2848656ab74..0048143fa1ab457f03e6dc95d8c5a93a069b8615 100644 (file)
--- a/src/dbm.pl
+++ b/src/dbm.pl
@@ -153,6 +153,8 @@ sub dbGet {
        return(@retval);
     }
 
+    # FIXME this should be in $select order
+    # and it's now in field order
     &DEBUG("dbGet: select=>'$select'.");
     my @array = split "$;", ${"$table"}{lc $val};
     unshift(@array,$val);