Changeset 76
- Timestamp:
- 04/27/08 22:17:48 (2 months ago)
- Files:
-
- trunk/apps/pdfdiff/Perl/lib/PDF/Extract/Text.pm (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/apps/pdfdiff/Perl/lib/PDF/Extract/Text.pm
r75 r76 151 151 if ($lines->[$ii] =~ /\-$/); 152 152 153 my $curLen = length($line ->{$ii});153 my $curLen = length($lines->{$ii}); 154 154 if ($curLen <= $cutOffLen) { 155 155 $newText .= $lines->[$ii] . "\n";