ReporterMany: Replace while-each with foreach

quattor · Sep 4, 2024 · ac631f2 · ac631f2
1 parent 9c84dc9
commit ac631f2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/main/perl/ReporterMany.pm b/src/main/perl/ReporterMany.pm
@@ -30,8 +30,8 @@ sub _rep_setup
     # initialise with current "global" CAF::Reporter settings
     #   if DEBUGLV is not set
     if (! exists($self->{$DEBUGLV})) {
-        while (my ($opt, $val) = each (%$CAF::Reporter::_REP_SETUP)) {
-            $self->{$opt} = $val;
+        foreach my $opt (keys %{$CAF::Reporter::_REP_SETUP}) {
+            $self->{$opt} = ${$CAF::Reporter::_REP_SETUP}{$opt};
         }
     }