diff --git a/lib/Qpsmtpd.pm b/lib/Qpsmtpd.pm index 50a17e6..bd0ca9e 100644 --- a/lib/Qpsmtpd.pm +++ b/lib/Qpsmtpd.pm @@ -491,6 +491,8 @@ Qpsmtpd - base class for the qpsmtpd mail server This is the base class for the qpsmtpd mail server. See L and the I file for more information. +=encoding UTF8 + =head1 COPYRIGHT Copyright 2001-2012 Ask Bjørn Hansen, Develooper LLC. See the diff --git a/plugins/resolvable_fromhost b/plugins/resolvable_fromhost index d7824bf..d25cae3 100644 --- a/plugins/resolvable_fromhost +++ b/plugins/resolvable_fromhost @@ -57,6 +57,8 @@ Default: temp (temporary, aka soft, aka 4xx). 86627 (mail) resolvable_fromhost: palmalar.com has no MX 86627 (mail) resolvable_fromhost: fail, palmalar.com (SERVFAIL) +=encoding UTF8 + =head1 AUTHORS 2012 - Matt Simerson - refactored, added: POD, tests, reject, reject_type diff --git a/plugins/user_config b/plugins/user_config index 97c4317..b79a757 100644 --- a/plugins/user_config +++ b/plugins/user_config @@ -20,6 +20,8 @@ Pattern to use when searching for user config directory Substitute %u for username, %h for host, or %a for full addressn. Default: I +=back + =head1 DESCRIPTION This plugin implements very basic support for storing user configuration diff --git a/xt/01-syntax.t b/xt/01-syntax.t index 3072713..842b971 100644 --- a/xt/01-syntax.t +++ b/xt/01-syntax.t @@ -12,14 +12,14 @@ use lib 'lib'; my $this_perl = $Config{'perlpath'} || $EXECUTABLE_NAME; -my @files = - find({wanted => \&test_syntax, no_chdir => 1}, 'plugins', 'lib', 't'); +my @files = find({wanted => \&test_syntax, no_chdir => 1}, 'plugins', 'lib', 't'); sub test_syntax { my $f = $File::Find::name; chomp $f; return if !-f $f; - return if $f =~ m/(~|\.(bak|orig|rej))/; + return if $f =~ m/(~|\.(bak|orig|rej|txt))$/; + return if $f =~ m/^t\/config/; my $r; eval { $r = `$this_perl -Ilib -MQpsmtpd::Constants -c $f 2>&1`; }; my $exit_code = sprintf("%d", $CHILD_ERROR >> 8);