[Rt-commit] r3937 - in Jifty-DBI/trunk: . lib/Jifty/DBI

[alexmv at bestpractical.com]

Author: alexmv
Date: Thu Oct  6 17:27:48 2005
New Revision: 3937

Modified:
   Jifty-DBI/trunk/   (props changed)
   Jifty-DBI/trunk/Makefile.PL
   Jifty-DBI/trunk/lib/Jifty/DBI/Handle.pm
Log:
 r6672 at zoq-fot-pik:  chmrr | 2005-10-06 17:26:59 -0400
  * Forward port changes from DBIx-SB, mostly logging fixes


Modified: Jifty-DBI/trunk/Makefile.PL
==============================================================================
--- Jifty-DBI/trunk/Makefile.PL	(original)
+++ Jifty-DBI/trunk/Makefile.PL	Thu Oct  6 17:27:48 2005
@@ -14,6 +14,7 @@
 requires('DateTime::Format::Strptime');
 
 build_requires('Test::More' => 0.52);
+build_requires('DBD::SQLite');
 
 features(
 	'Schema generation' => [

Modified: Jifty-DBI/trunk/lib/Jifty/DBI/Handle.pm
==============================================================================
--- Jifty-DBI/trunk/lib/Jifty/DBI/Handle.pm	(original)
+++ Jifty-DBI/trunk/lib/Jifty/DBI/Handle.pm	Thu Oct  6 17:27:48 2005
@@ -229,8 +229,9 @@
     my $self      = shift;
     my $statement = shift;
     my $duration  = shift;
+    my @bind = @_;
     push @{ $self->{'StatementLog'} },
-        ( [ Time::Hires::time(), $statement, $duration ] );
+        ( [ Time::HiRes::time(), $statement, [@bind], $duration ] );
 
 }
 
@@ -458,7 +459,7 @@
         eval { $executed = $sth->execute(@bind_values) };
     }
     if ( $self->log_sql_statements ) {
-        $self->_log_sql_statement( $QueryString, tv_interval($basetime) );
+        $self->_log_sql_statement( $QueryString, Time::HiRes::time() - $basetime, @bind_values );
 
     }