Warnung in regex eliminiert

Folgende Meldung:
Useless use of greediness modifier '?' in regex; marked by <-- HERE in m/(\b\S{60}? <-- HERE )(\S.*?\b)/ at modules/override/PDF/Table.pm line 334.

Das .*? ersetzt durch .+

diff --git a/modules/override/PDF/Table.pm b/modules/override/PDF/Table.pm
index 81bf5d3..7bb1e15 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+//;