work without report, too :-)

[webpac2] / run.pl

diff --git a/run.pl b/run.pl
index 8d9f2cb..6d4692d 100755 (executable)
--- a/run.pl
+++ b/run.pl
@@ -491,7 +491,7 @@ while (my ($database, $db_config) = each %{ $config->{databases} }) {
                        $marc->finish if ($marc);
 
                        # close report
-                       close($report_fh) || $log->logdie("can't close report: $!");
+                       close($report_fh) if ($report_fh)
                }
 
        }