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	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;