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 853e0ee867c76dbcd81738127fc7ca785549b15d..602c88728d499a7653d32f6fec44a0a37b025c48 100755 (executable)
--- a/modules/override/PDF/Table.pm
+++ b/modules/override/PDF/Table.pm
@@ -463,7 +463,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