13 lines
474 B
Plaintext
13 lines
474 B
Plaintext
$OpenBSD: patch-FuzzyOcr_pm,v 1.1 2012/07/09 21:04:03 giovanni Exp $
|
|
--- 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;
|