--- trunk/index_DBI_cache.pm	2003/07/11 20:58:45	87
+++ trunk/index_DBI_cache.pm	2003/07/12 16:02:15	88
@@ -17,6 +17,9 @@
 my $c_table;
 my $c_count;
 
+# bench time
+my $t = time();
+
 sub new {
 	my $class = shift;
 	my $self = {};
@@ -191,7 +194,8 @@
 
 		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"};