PDF::Table - fehlerhafte Headerbearbeitung ab Seite 2

ab Seite 2 werden die benötigten Weiten der Spalten um die Zahl der Headerzeilen
nach hinten verschoben. Dann kommt es zu fehlenden Zeilenumbrüchen in manchen Zellen

Da Pushen von leerem Array führt zu diesem Fehler, d.h. es wird doppelt gepushed.
Dieser Fehler war schon in der alten PDF::Table

diff --git a/modules/override/PDF/Table.pm b/modules/override/PDF/Table.pm
index 3160b29dd584f2adb1ae3f8eb872d5425593012b..5934fcb7001d6531e63a44a770e052964cf1f2c5 100644 (file)
--- a/modules/override/PDF/Table.pm
+++ b/modules/override/PDF/Table.pm
@@ -456,7 +456,7 @@ sub table
 
     for( my $row_idx = 0; $row_idx < scalar(@$data) ; $row_idx++ )
     {
 
     for( my $row_idx = 0; $row_idx < scalar(@$data) ; $row_idx++ )
     {

-        push @header_row_widths, [] if $row_idx < $header_props->{num_header_rows};
+        #push @header_row_widths, [] if $row_idx < $header_props->{num_header_rows};

 
         my $column_widths = []; #holds the width of each column
         # Init the height for this row
 
         my $column_widths = []; #holds the width of each column
         # Init the height for this row