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 7040b2958ac4dcc0583a3c328df35f8d711fb8d8..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)
 
@@ -981,6 +981,7 @@ Stone Environmental Inc. (www.stone-env.com).
 The text_block() method is a slightly modified copy of the one from
 Rick Measham's PDF::API2 tutorial at
 http://pdfapi2.sourceforge.net/cgi-bin/view/Main/YourFirstDocument
+update: The tutorial is no longer available. Please visit http://pdfapi2.sourceforge.net .
 
 by Desislav Kamenov