From 816c0391a63ae673d03baa3ee39dc22289c28d7f Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 7 Jul 2008 21:18:15 +0000
Subject: [PATCH] eek, hopefully fix problems caused by adding debugging of
 bind_param statements

---
 FS/FS/Record.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index 9badd5bef..730d81afe 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -318,7 +318,7 @@ sub qsearch {
 
     if ( $DEBUG > 2 ) {
       no strict 'refs';
-      %TYPE = map { &{"DBI::$_"} => $_ } @{ $DBI::EXPORT_TAGS{sql_types} }
+      %TYPE = map { &{"DBI::$_"}() => $_ } @{ $DBI::EXPORT_TAGS{sql_types} }
         unless keys %TYPE;
       warn "  bind_param $bind (for field $field), $value, TYPE $TYPE{$TYPE}\n";
     }
-- 
2.11.0