Submitted by: Paul Henson <henson@acm.org> (See http://fuzzyocr.own-hero.net/ticket/60)
Date: 2007-04-17
Initial Package Version: 3.5.1
Upstream Status: Accepted but no time to work on project any more
Description: Replaces .'s in fname with _'s when fname is generated from
content-id so that the part after the . won't be misinterpreted as a file
extension.

diff -u -r FuzzyOcr-3.5.1-orig/FuzzyOcr.pm FuzzyOcr-3.5.1/FuzzyOcr.pm
--- FuzzyOcr-3.5.1-orig/FuzzyOcr.pm	2007-01-07 04:05:08.000000000 -0800
+++ FuzzyOcr-3.5.1/FuzzyOcr.pm	2007-04-17 14:21:25.000000000 -0700
@@ -146,7 +146,7 @@
             ){
             $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;