From 5bd61db761adad8bf6f64e391a5524fa00b19e1a Mon Sep 17 00:00:00 2001 From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5> Date: Sat, 2 Nov 2002 07:36:14 +0000 Subject: [PATCH] val not key git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@592 c11ca15a-4712-0410-83d8-924469b57eb5 --- src/db_dbm.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/db_dbm.pl b/src/db_dbm.pl index 9a9126c..909ed18 100644 --- a/src/db_dbm.pl +++ b/src/db_dbm.pl @@ -138,7 +138,7 @@ sub dbGet { &DEBUG("dbGet: select=>'$select'."); my @array = split "$;", ${"$table"}{lc $val}; - unshift(@array,$key); + unshift(@array,$val); for (0 .. $#format) { my $str = $format[$_]; next unless (grep /^$str$/, split(/\,/, $select)); -- 2.39.5