Mailing List Archive

svn commit: rev 6753 - incubator/spamassassin/trunk/lib/Mail/SpamAssassin
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