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