print timings of last operation

[webpac] / index_DBI_cache.pm

diff --git a/index_DBI_cache.pm b/index_DBI_cache.pm
index ac8ca14..4377382 100644 (file)
--- a/index_DBI_cache.pm
+++ b/index_DBI_cache.pm
@@ -17,6 +17,9 @@ my %sth_cache;        # cache prepared statements
 my $c_table;
 my $c_count;
 
+# bench time
+my $t = time();
+
 sub new {
        my $class = shift;
        my $self = {};
@@ -191,7 +194,8 @@ sub close {
 
                foreach my $table (keys %Table) {
 # FIX
-print STDERR print scalar localtime()."\n";
+print STDERR "last operation took ",time()-$t," seconds...\n";
+$t=time();
 print STDERR "creating ord for $table...\n";
                        create_ord($table);
                        undef $sth_cache{$table."select"};