You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@spamassassin.apache.org by gb...@apache.org on 2022/04/29 13:47:55 UTC
svn commit: r1900386 - /spamassassin/trunk/lib/Mail/SpamAssassin.pm
Author: gbechis
Date: Fri Apr 29 13:47:54 2022
New Revision: 1900386
URL: http://svn.apache.org/viewvc?rev=1900386&view=rev
Log:
check only directories to avoid a warning
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=1900386&r1=1900385&r2=1900386&view=diff
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin.pm Fri Apr 29 13:47:54 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/ && -d $_ && -M "$dir/$_" > 0.0001} readdir(WT_DIR)) {
unlink(Mail::SpamAssassin::Util::untaint_file_path(File::Spec->catdir($dir, $_)));
}
closedir WT_DIR;