Преглед изворни кода

Return warnings as arrayref

Alois Mahdal пре 11 година
родитељ
комит
2a14bc1967
1 измењених фајлова са 1 додато и 9 уклоњено
  1. 1
    9
      lib/SugarTrail/Template/Slave.pm

+ 1
- 9
lib/SugarTrail/Template/Slave.pm Прегледај датотеку

@@ -41,15 +41,7 @@ sub warnings {
41 41
     foreach my $step (@{$self->{steps}}) {
42 42
         push @warnings, $_ foreach @{$step->{warnings}};
43 43
     }
44
-    my $warnings = "";
45
-    if (@warnings) {
46
-        $warnings .= "---\n# SUGAR-TRAIL WARNINGS #\n\n";
47
-        foreach (@warnings) {
48
-            $warnings .= "> warning: $_\n";
49
-        }
50
-        $warnings .= "---\n\n";
51
-    }
52
-    return $warnings;
44
+    return \@warnings;
53 45
 }
54 46
 
55 47