From b7aaa136bd4ad909325b0e5da59daa607233ae27 Mon Sep 17 00:00:00 2001 From: adefaria Date: Fri, 10 Oct 2014 17:47:13 -0700 Subject: [PATCH] Changed so that if Stats is logging to a Logger object it checks to see if there are any errors or warnings and reports them. --- lib/Utils.pm | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/lib/Utils.pm b/lib/Utils.pm index a523461..a21d996 100644 --- a/lib/Utils.pm +++ b/lib/Utils.pm @@ -827,7 +827,8 @@ and the values of the hash will be the counters. =item $log -Logger object to log stats to (if specified) +Logger object to log stats to (if specified). Note: if the Logger object has +errors or warnings then they will be automatically included in the output. =back @@ -849,7 +850,12 @@ Returns: my $msg = "$FindBin::Script Run Statistics:"; - if (scalar keys %$total) { + if ($log and ref $log eq 'Logger') { + $total->{errors} = $log->{errors}; + $total->{warnings} = $log->{warnings}; + } # if + + if (keys %$total) { # Display statistics (if any) if ($log) { $log->msg ($msg); @@ -858,10 +864,10 @@ Returns: } # if foreach (sort keys %$total) { - $msg = $$total{$_} . "\t $_"; + $msg = $total->{$_} . "\t $_"; if ($log) { - $log->msg ($$total{$_} . "\t $_"); + $log->msg ($total->{$_} . "\t $_"); } else { display $msg; } # if -- 2.17.1