Преглед на файлове

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