11 lines
405 B
Text
11 lines
405 B
Text
--- FuzzyOcr.pm.orig Mon Jul 9 19:14:22 2012
|
|
+++ FuzzyOcr.pm Mon Jul 9 19:15:16 2012
|
|
@@ -164,7 +164,7 @@ sub fuzzyocr_do {
|
|
){
|
|
$fname = join('',@{$p->{'headers'}->{'content-id'}});
|
|
$fname =~ s/[<>]//g;
|
|
- $fname =~ tr/\@\$\%\&/_/s;
|
|
+ $fname =~ tr/\@\$\%\&\./_/s;
|
|
}
|
|
|
|
my $filename = $fname; $filename =~ tr{a-zA-Z0-9\-.}{_}cs;
|