diff options
| author | ivan <ivan> | 2008-07-07 21:07:54 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2008-07-07 21:07:54 +0000 |
| commit | 86bf118b5df60143efbd1e488c4f2825e0d2df2f (patch) | |
| tree | 7b5a78c61756857f7c359ee08b5d8e18d26487ce /FS | |
| parent | 87db725871fbc27ce2537b61bf0d42f5f3969250 (diff) | |
add debugging of bind_param statements
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/Record.pm | 1 |
1 files changed, 1 insertions, 0 deletions
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"; |