print datestamp before starting sort (for benchmarking)

[webpac] / index_DBI_cache.pm

diff --git a/index_DBI_cache.pm b/index_DBI_cache.pm
index 7526dd6..ac8ca14 100644 (file)
--- a/index_DBI_cache.pm
+++ b/index_DBI_cache.pm
@@ -191,6 +191,7 @@ sub close {
 
                foreach my $table (keys %Table) {
 # FIX
+print STDERR print scalar localtime()."\n";
 print STDERR "creating ord for $table...\n";
                        create_ord($table);
                        undef $sth_cache{$table."select"};