Don't try to split undefined values in $_[0]->{lines}

miyagawa · Sep 15, 2011 · 224db1b · 224db1b
1 parent dcdd428
commit 224db1b
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/lib/Plack/Middleware/Debug/Base.pm b/lib/Plack/Middleware/Debug/Base.pm
@@ -128,11 +128,13 @@ my $line_template = __PACKAGE__->build_template(<<'EOTMPL');
 <table>
     <tbody>
 % my $i;
-% my @lines = ref $_[0]->{lines} eq 'ARRAY' ? @{$_[0]->{lines}} : split /\r?\n/, $_[0]->{lines};
+% if (defined $_[0]->{lines}) {
-% for my $line (@lines) {
+%   my @lines = ref $_[0]->{lines} eq 'ARRAY' ? @{$_[0]->{lines}} : split /\r?\n/, $_[0]->{lines};
+%   for my $line (@lines) {
             <tr class="<%= ++$i % 2 ? 'plDebugEven' : 'plDebugOdd' %>">
                 <td><%= $line %></td>
             </tr>
+%   }
 % }
     </tbody>
 </table>