svn commit: rev 6753 - incubator/spamassassin/trunk/lib/Mail/SpamAssassin

[fe...@apache.org]

Author: felicity
Date: Wed Feb 18 18:33:17 2004
New Revision: 6753

Modified:
   incubator/spamassassin/trunk/lib/Mail/SpamAssassin/BayesStoreDBM.pm
Log:
bug 2401: apparently perl on Windows doesn't seem to know what SIGHUP is, so we need to protect our HUP handler calls.

Modified: incubator/spamassassin/trunk/lib/Mail/SpamAssassin/BayesStoreDBM.pm
==============================================================================
--- incubator/spamassassin/trunk/lib/Mail/SpamAssassin/BayesStoreDBM.pm	(original)
+++ incubator/spamassassin/trunk/lib/Mail/SpamAssassin/BayesStoreDBM.pm	Wed Feb 18 18:33:17 2004
@@ -375,8 +375,8 @@
     # This is the critical phase (moving files around), so don't allow
     # it to be interrupted.
     local $SIG{'INT'} = 'IGNORE';
-    local $SIG{'HUP'} = 'IGNORE';
     local $SIG{'TERM'} = 'IGNORE';
+    local $SIG{'HUP'} = 'IGNORE' if (!Mail::SpamAssassin::Util::am_running_on_windows());
 
     # older versions used scancount, so kill the stupid little file ...
     my $msgc = $path.'_msgcount';
@@ -565,8 +565,8 @@
   # it to be interrupted.  Scope the signal changes.
   {
     local $SIG{'INT'} = 'IGNORE';
-    local $SIG{'HUP'} = 'IGNORE';
     local $SIG{'TERM'} = 'IGNORE';
+    local $SIG{'HUP'} = 'IGNORE' if (!Mail::SpamAssassin::Util::am_running_on_windows());
 
     # now rename in the new one.  Try several extensions
     for my $ext (@DB_EXTENSIONS) {
@@ -980,8 +980,8 @@
   # it to be interrupted.
   {
     local $SIG{'INT'} = 'IGNORE';
-    local $SIG{'HUP'} = 'IGNORE';
     local $SIG{'TERM'} = 'IGNORE';
+    local $SIG{'HUP'} = 'IGNORE' if (!Mail::SpamAssassin::Util::am_running_on_windows());
 
     # retire the journal, so we can update the db files from it in peace.
     # TODO: use locking here