From 684ded1005504bae0a9f26dca5a86b41b4d34730 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Sven=20Sch=C3=B6ling?= Date: Thu, 25 Feb 2016 18:59:45 +0100 Subject: [PATCH] PDF::Table: Warnungen und "-" Artefakte bei undef entfernt --- modules/override/PDF/Table.pm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/modules/override/PDF/Table.pm b/modules/override/PDF/Table.pm index a805f7767..31045f034 100755 --- a/modules/override/PDF/Table.pm +++ b/modules/override/PDF/Table.pm @@ -134,8 +134,8 @@ sub text_block # Check if any text to display unless( defined( $text) and length($text) > 0 ) { - carp "Warning: No input text found. Trying to add dummy '-' and not to break everything.\n"; - $text = '-'; +# carp "Warning: No input text found. Trying to add dummy '-' and not to break everything.\n"; + $text = ' '; } # Strip any and Split the text into paragraphs @@ -669,6 +669,11 @@ sub table # Row cell props - TODO in another commit + # Added to resolve infite loop bug with returned undef values + for(my $d = 0; $d < scalar(@{$record}) ; $d++) + { + $record->[$d] = ' ' unless( defined $record->[$d]); + } # Choose colors for this row $background_color = ($row_index - $header_props->{num_header_rows}) % 2 ? $background_color_even : $background_color_odd; -- 2.20.1