You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@spamassassin.apache.org by jm...@apache.org on 2006/07/11 17:20:17 UTC
svn commit: r420894 - /spamassassin/trunk/lib/Mail/SpamAssassin/AICache.pm
Author: jm
Date: Tue Jul 11 08:20:17 2006
New Revision: 420894
URL: http://svn.apache.org/viewvc?rev=420894&view=rev
Log:
fix relative path support with mass-check --cache
Modified:
spamassassin/trunk/lib/Mail/SpamAssassin/AICache.pm
Modified: spamassassin/trunk/lib/Mail/SpamAssassin/AICache.pm
URL: http://svn.apache.org/viewvc/spamassassin/trunk/lib/Mail/SpamAssassin/AICache.pm?rev=420894&r1=420893&r2=420894&view=diff
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/AICache.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/AICache.pm Tue Jul 11 08:20:17 2006
@@ -60,10 +60,13 @@
my $use_cache = 1;
+ # be sure to use rel2abs() here, since otherwise relative paths
+ # are broken by the prefix stuff
if ($self->{type} eq 'dir') {
$self->{cache_file} = File::Spec->catdir(
$self->{prefix},
- $self->{path}, '.spamassassin_cache');
+ File::Spec->rel2abs($self->{path}),
+ '.spamassassin_cache');
$self->{cache_mtime} = (stat($self->{cache_file}))[9] || 0;
}
@@ -71,7 +74,7 @@
my @split = File::Spec->splitpath($self->{path});
$self->{cache_file} = File::Spec->catdir(
$self->{prefix},
- $split[1],
+ File::Spec->rel2abs($split[1]),
join('_', '.spamassassin_cache', $self->{type}, $split[2]));
$self->{cache_mtime} = (stat($self->{cache_file}))[9] || 0;