[Mimedefang] 2.10 buglets

[Jason Englander]

diff -ur mimedefang-2.10.orig/examples/suggested-minimum-filter-for-windows-clients mimedefang-2.10/examples/suggested-minimum-filter-for-windows-clients
--- mimedefang-2.10.orig/examples/suggested-minimum-filter-for-windows-clients	Thu May  9 16:18:02 2002
+++ mimedefang-2.10/examples/suggested-minimum-filter-for-windows-clients	Fri May 10 14:57:11 2002
@@ -46,7 +46,7 @@
 # This procedure returns true for entities with bad filenames.
 sub filter_bad_filename {
     my($entity) = @_;
-    return re_match($entity, '\.(bat|chm|cmd|com|cpl|dll|exe|hlp|hta|ini|js|lib|lnk|msi|msp|ocx|pif|reg|reg|scr|sct|shb|shs|sys|vbe|vbs?|vxd|wsf|wsh)');
+    return re_match($entity, '\.(bat|chm|cmd|com|cpl|dll|exe|hlp|hta|ini|js|lib|lnk|msi|msp|ocx|pif|reg|scr|sct|shb|shs|sys|vbe|vbs?|vxd|wsf|wsh)');
 }

 #***********************************************************************
diff -ur mimedefang-2.10.orig/mimedefang.pl.in mimedefang-2.10/mimedefang.pl.in
--- mimedefang-2.10.orig/mimedefang.pl.in	Fri May 10 08:46:44 2002
+++ mimedefang-2.10/mimedefang.pl.in	Fri May 10 14:56:57 2002
@@ -1409,7 +1409,7 @@
 #  Runs the NAI Virus Scan program on the entity. (http://www.nai.com)
 #***********************************************************************
 sub entity_contains_virus_nai ($) {
-    unless ($Features{'Virus::NAI'}) {
+    unless ($Features{'Virus:NAI'}) {
 	syslog('err', "NAI Virus Scan not installed on this system");
 	return (wantarray ? (1, 'not-installed', 'tempfail') : 1);
     }
@@ -1448,7 +1448,7 @@
 #  Runs the NAI Virus Scan program on the working directory
 #***********************************************************************
 sub message_contains_virus_nai () {
-    unless ($Features{'Virus::NAI'}) {
+    unless ($Features{'Virus:NAI'}) {
 	syslog('err', "NAI Virus Scan not installed on this system");
 	return (wantarray ? (1, 'not-installed', 'tempfail') : 1);
     }