X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/73f9bcebd3ca1d562cd7a5efe98058d6b100c314..5ba69d08849773c459086a0f96484046a845159e:/modules/override/PDF/Table.pm diff --git a/modules/override/PDF/Table.pm b/modules/override/PDF/Table.pm index 113344d45..7bb1e1500 100644 --- a/modules/override/PDF/Table.pm +++ b/modules/override/PDF/Table.pm @@ -331,7 +331,7 @@ sub table { do { $myone = 0; # This RegEx will split any word that is longer than {25} symbols - $row->[$j] =~ s#(\b\S{$max_word_len}?)(\S.*?\b)# $1 $2#; + $row->[$j] =~ s#(\b\S{$max_word_len}?)(\S.+\b)# $1 $2#; $myone = 1 if ( defined $2 ); } while( $myone ); $row->[$j] =~ s/^\s+//; @@ -596,7 +596,7 @@ sub table { if ($remaining_header_rows) { $remaining_header_rows--; } else { - $row_cnt++; + $row_cnt++ unless $do_leftovers; } }# End of while(scalar(@{$data}) and $cur_y-$row_h > $bot_marg)