diff options
| -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"; } |