moved two more dump()s to closure, saving 2/3rd of memory and some CPU time on

output which is not needed without debug level

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

diff --git a/run.pl b/run.pl
index 118215f..54220fc 100755 (executable)
--- a/run.pl
+++ b/run.pl
@@ -396,7 +396,7 @@ while (my ($database, $db_config) = each %{ $config->databases }) {
                my $lookup_data = WebPAC::Normalize::_get_lookup();
 
                if (defined( $lookup_data->{$database}->{$input_name} )) {
-                       $log->debug("created following lookups: ", dump( $lookup_data ));
+                       $log->debug("created following lookups: ", sub { dump( $lookup_data ) } );
 
                        foreach my $key (keys %{ $lookup_data->{$database}->{$input_name} }) {
                                $store->save_lookup(
@@ -500,7 +500,7 @@ while (my ($database, $db_config) = each %{ $config->databases }) {
                                },
                        );
 
-                       $log->debug("ds = ",dump($ds)) if ($ds);
+                       $log->debug("ds = ", sub { dump($ds) }) if ($ds);
 
                        $store->save_ds(
                                database => $database,