From 86bf118b5df60143efbd1e488c4f2825e0d2df2f Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 7 Jul 2008 21:07:54 +0000
Subject: [PATCH] add debugging of bind_param statements

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

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index a27c4bcec..9badd5bef 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -317,6 +317,7 @@ sub qsearch {
     }
 
     if ( $DEBUG > 2 ) {
+      no strict 'refs';
       %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