graph: 'each' warnings fix

evdenis · Jun 8, 2015 · b659306 · b659306
1 parent 46908d3
commit b659306
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/lib/App/Graph.pm b/lib/App/Graph.pm
@@ -133,7 +133,7 @@ CACHE: if ($opts->{cache}) {
    my @stat_priority;
    if ($opts->{priority}) {
       ### MARKING PRIORITIES
-      while ( my ($i, $list) = each $opts->{conf}{priority}{lists} ) {
+      while ( my ($i, $list) = each @{ $opts->{conf}{priority}{lists} } ) {
          my $color = $opts->{conf}{priority}{colors}{$list};
          my %stat = ( done => 0, remains => 0);
 
@@ -298,8 +298,8 @@ CACHE: if ($opts->{cache}) {
          push @legenda, qq(    label = "Priority levels";\n);
          push @legenda, qq(    node [shape = "box", style = "filled"];\n);
          push @legenda, qq(    "1" -> "2" -> "3" -> "4" -> "5" [ style = "invis" ];\n);
-         my $colors = [ map { $opts->{conf}{priority}{colors}{$_} } @{ $opts->{conf}{priority}{lists} } ];
-         while (my ($idx, $color) = each $colors) {
+         my @colors = map { $opts->{conf}{priority}{colors}{$_} } @{ $opts->{conf}{priority}{lists} };
+         while (my ($idx, $color) = each @colors) {
             ++$idx;
             push @legenda, qq(    "$idx" [fillcolor = "$color"];\n);
          }