You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@spamassassin.apache.org by he...@apache.org on 2022/04/29 15:59:29 UTC
svn commit: r1900389 - /spamassassin/trunk/lib/Mail/SpamAssassin.pm
Author: hege
Date: Fri Apr 29 15:59:29 2022
New Revision: 1900389
URL: http://svn.apache.org/viewvc?rev=1900389&view=rev
Log:
Fix race condition generated warning of trying to -M a disappeared file after readdir()
Modified:
spamassassin/trunk/lib/Mail/SpamAssassin.pm
Modified: spamassassin/trunk/lib/Mail/SpamAssassin.pm
URL: http://svn.apache.org/viewvc/spamassassin/trunk/lib/Mail/SpamAssassin.pm?rev=1900389&r1=1900388&r2=1900389&view=diff
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin.pm Fri Apr 29 15:59:29 2022
@@ -1999,7 +1999,7 @@ sub test_global_state_dir {
eval { mkpath($dir, 0, 0700); }; # just a single stat if exists already
# Purge stale test files
if (opendir(WT_DIR, $dir)) {
- foreach (grep {/^\.sawritetest/ && -M "$dir/$_" > 0.0001} readdir(WT_DIR)) {
+ foreach (grep {/^\.sawritetest/ && (-M "$dir/$_"||0) > 0.0001} readdir(WT_DIR)) {
unlink(Mail::SpamAssassin::Util::untaint_file_path(File::Spec->catdir($dir, $_)));
}
closedir WT_DIR;