Warnung in regex eliminiert

[mfinanz.git] / modules / override / PDF / Table.pm

diff --git a/modules/override/PDF/Table.pm b/modules/override/PDF/Table.pm
index 113344d45ac525dd8c2e4e3c3eb0b7235066e0ab..7bb1e1500f34ebd08a34873b7c423978e83196c3 100644 (file)
--- 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)