[patch] Patch for . in file name bug

nodotinfname.patch (text/plain), 870 bytes, created by Heath Caldwell (RETIRED) on 2008-12-20 00:46:08 UTC

Submitted by: Paul Henson <[e-mail]> (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;