Changeset 77
- Timestamp:
- 04/27/08 22:17:51 (2 months ago)
- Files:
-
- trunk/apps/pdfdiff/Perl/lib/PDF/Extract/Text.pm (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/apps/pdfdiff/Perl/lib/PDF/Extract/Text.pm
r76 r77 37 37 use PDF::OCR::Thorough; 38 38 use Text::Autoformat; 39 use Text::Aspell; 39 40 40 41 =head1 NAME … … 151 152 if ($lines->[$ii] =~ /\-$/); 152 153 153 my $curLen = length($lines-> {$ii});154 my $curLen = length($lines->[$ii]); 154 155 if ($curLen <= $cutOffLen) { 155 156 $newText .= $lines->[$ii] . "\n";