FuzzyOcr/sme7/FuzzyOcr-3.5.1-fixes.patch

diff -Nur -x '*.orig' -x '*.rej' FuzzyOcr-3.5.1/FuzzyOcr/Config.pm mezzanine_patched_FuzzyOcr-3.5.1/FuzzyOcr/Config.pm
--- FuzzyOcr-3.5.1/FuzzyOcr/Config.pm   2007-03-06 08:09:26.000000000 -0700
+++ mezzanine_patched_FuzzyOcr-3.5.1/FuzzyOcr/Config.pm 2007-03-06 08:02:56.000000000 -0700
@@ -626,6 +626,10 @@
         debuglog(" $k => ".$conf->{$k});
     }
 
+    unless (@scansets) {
+        warn("No scansets loaded, did you remove the \"focr_config_end\" line at the end of the .cf file?");
+    }
+
     foreach my $prep (@preprocessors) {
         my $preplabel = $prep->{label};
         my $off = ($prep->{command} =~ m/^\$/) ? 1 : 0;
diff -Nur -x '*.orig' -x '*.rej' FuzzyOcr-3.5.1/FuzzyOcr.cf mezzanine_patched_FuzzyOcr-3.5.1/FuzzyOcr.cf
--- FuzzyOcr-3.5.1/FuzzyOcr.cf  2007-03-06 08:09:26.000000000 -0700
+++ mezzanine_patched_FuzzyOcr-3.5.1/FuzzyOcr.cf        2007-03-06 07:58:33.000000000 -0700
@@ -130,7 +130,6 @@
 
 #focr_bin_pnmnorm /usr/bin/pnmnorm
 #focr_bin_pnminvert /usr/bin/pnminvert
-#focr_bin_convert /usr/bin/convert
 
 ###
 ### Scansets 
diff -Nur -x '*.orig' -x '*.rej' FuzzyOcr-3.5.1/FuzzyOcr.pm mezzanine_patched_FuzzyOcr-3.5.1/FuzzyOcr.pm
--- FuzzyOcr-3.5.1/FuzzyOcr.pm  2007-03-06 08:09:26.000000000 -0700
+++ mezzanine_patched_FuzzyOcr-3.5.1/FuzzyOcr.pm        2007-03-06 08:03:08.000000000 -0700
@@ -576,7 +576,7 @@
                 infolog("Skipping image check");
                 next;
             }
-            if (defined($conf->{focr_max_size_png}) and ($$pic{fsize} > $conf->{focr__max_size_png})) {
+            if (defined($conf->{focr_max_size_png}) and ($$pic{fsize} > $conf->{focr_max_size_png})) {
                 infolog("PNG file size ($$pic{fsize}) exceeds maximum file size for this format, skipping...");
                 next;
             }
@@ -795,6 +795,8 @@
 
             debuglog("ocrdata=>>".join("",@result)."<<=end");
             foreach $modus (0 .. 1) {
+                $cmcnt = 0;
+                @cfound = ();
                 foreach my $ww (keys %words) {
                     my $w = lc $ww;
                     $w =~ s/[^a-z0-9 ]//g;
1	slords	1.1	diff -Nur -x '.orig' -x '.rej' FuzzyOcr-3.5.1/FuzzyOcr/Config.pm mezzanine_patched_FuzzyOcr-3.5.1/FuzzyOcr/Config.pm
2			--- FuzzyOcr-3.5.1/FuzzyOcr/Config.pm 2007-03-06 08:09:26.000000000 -0700
3			+++ mezzanine_patched_FuzzyOcr-3.5.1/FuzzyOcr/Config.pm 2007-03-06 08:02:56.000000000 -0700
4			@@ -626,6 +626,10 @@
5			debuglog(" $k => ".$conf->{$k});
6			}
7
8			+ unless (@scansets) {
9			+ warn("No scansets loaded, did you remove the \"focr_config_end\" line at the end of the .cf file?");
10			+ }
11			+
12			foreach my $prep (@preprocessors) {
13			my $preplabel = $prep->{label};
14			my $off = ($prep->{command} =~ m/^\$/) ? 1 : 0;
15			diff -Nur -x '.orig' -x '.rej' FuzzyOcr-3.5.1/FuzzyOcr.cf mezzanine_patched_FuzzyOcr-3.5.1/FuzzyOcr.cf
16			--- FuzzyOcr-3.5.1/FuzzyOcr.cf 2007-03-06 08:09:26.000000000 -0700
17			+++ mezzanine_patched_FuzzyOcr-3.5.1/FuzzyOcr.cf 2007-03-06 07:58:33.000000000 -0700
18			@@ -130,7 +130,6 @@
19
20			#focr_bin_pnmnorm /usr/bin/pnmnorm
21			#focr_bin_pnminvert /usr/bin/pnminvert
22			-#focr_bin_convert /usr/bin/convert
23
24			###
25			### Scansets
26			diff -Nur -x '.orig' -x '.rej' FuzzyOcr-3.5.1/FuzzyOcr.pm mezzanine_patched_FuzzyOcr-3.5.1/FuzzyOcr.pm
27			--- FuzzyOcr-3.5.1/FuzzyOcr.pm 2007-03-06 08:09:26.000000000 -0700
28			+++ mezzanine_patched_FuzzyOcr-3.5.1/FuzzyOcr.pm 2007-03-06 08:03:08.000000000 -0700
29			@@ -576,7 +576,7 @@
30			infolog("Skipping image check");
31			next;
32			}
33			- if (defined($conf->{focr_max_size_png}) and ($$pic{fsize} > $conf->{focr__max_size_png})) {
34			+ if (defined($conf->{focr_max_size_png}) and ($$pic{fsize} > $conf->{focr_max_size_png})) {
35			infolog("PNG file size ($$pic{fsize}) exceeds maximum file size for this format, skipping...");
36			next;
37			}
38			@@ -795,6 +795,8 @@
39
40			debuglog("ocrdata=>>".join("",@result)."<<=end");
41			foreach $modus (0 .. 1) {
42			+ $cmcnt = 0;
43			+ @cfound = ();
44			foreach my $ww (keys %words) {
45			my $w = lc $ww;
46			$w =~ s/[^a-z0-9 ]//g;