diff options
| author | ivan <ivan> | 2008-07-07 21:18:15 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2008-07-07 21:18:15 +0000 |
| commit | 816c0391a63ae673d03baa3ee39dc22289c28d7f (patch) | |
| tree | a984d5ed343157e3eae4edd9dc32cc20cc000dd4 | |
| parent | 86bf118b5df60143efbd1e488c4f2825e0d2df2f (diff) | |
eek, hopefully fix problems caused by adding debugging of bind_param statements
| -rw-r--r-- | FS/FS/Record.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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"; } |