diff -ur /usr/local/lib/perl5/site_perl/5.8.2/Mail/SpamAssassin/Dns.pm.orig /usr/local/lib/perl5/site_perl/5.8.2/Mail/SpamAssassin/Dns.pm --- /usr/local/lib/perl5/site_perl/5.8.2/Mail/SpamAssassin/Dns.pm.orig Sun Jan 18 00:56:08 2004 +++ /usr/local/lib/perl5/site_perl/5.8.2/Mail/SpamAssassin/Dns.pm Wed Apr 7 18:59:34 2004 @@ -1097,6 +1097,9 @@ my $newhome; if ($self->{main}->{home_dir_for_helpers}) { $newhome = $self->{main}->{home_dir_for_helpers}; + $newhome =~ s/%d/"GLOBAL" || ''/ges; + $newhome =~ s/%l/"USER" || ''/ges; + $newhome =~ s/%u/"USER\@GLOBAL" || ''/ges; } else { # use spamd -u user's home dir $newhome = (Mail::SpamAssassin::Util::portable_getpwuid ($>))[7];