[freeside-commits] freeside/FS/FS Record.pm,1.160,1.161

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv32033

Modified Files:
	Record.pm 
Log Message:
eek, hopefully fix problems caused by adding debugging of bind_param statements

Index: Record.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Record.pm,v
retrieving revision 1.160
retrieving revision 1.161
diff -u -d -r1.160 -r1.161
--- Record.pm	7 Jul 2008 21:07:54 -0000	1.160
+++ Record.pm	7 Jul 2008 21:18:15 -0000	1.161
@@ -318,7 +318,7 @@
 
     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";
     }