report time needed to store lookup to disk

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@764 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/lib/WebPAC/Store.pm b/lib/WebPAC/Store.pm
index 52fd657..982ff6a 100644 (file)
--- a/lib/WebPAC/Store.pm
+++ b/lib/WebPAC/Store.pm
@@ -331,8 +331,10 @@ sub save_lookup {
 
        $path .= "/" . $args->{key};
 
+       my $t = time();
+
        if (store $args->{data}, $path) {
-               $log->info("saved lookup $path");
+               $log->info(sprintf("saved lookup $path in %.2fs", time() - $t));
                return 1;
        } else {
                $log->logwarn("can't save lookup to $path: $!");