Fix 01-syntax test failures

Exclude some tests with dependencies.

Remove -T from perl line in plugins
This makes it harder to test with PERL5LIB/perlbrew etc

Makefile.PL

@@ -14,6 +14,7 @@ WriteMakefile(
         'File::Temp'   => 0,
         'Time::HiRes'  => 0,
         'Net::IP'      => 0,
+        'Date::Parse'  => 0,
     },
     ABSTRACT       => 'Flexible smtpd daemon written in Perl',
     AUTHOR         => 'Ask Bjoern Hansen <ask@develooper.com>',

plugins/async/check_earlytalker

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/async/dns_whitelist_soft

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 use Qpsmtpd::Plugin::Async::DNSBLBase;
 

plugins/async/dnsbl

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 use Qpsmtpd::Plugin::Async::DNSBLBase;
 

plugins/async/queue/smtp-forward

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/async/require_resolvable_fromhost

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 use Qpsmtpd::DSN;
 use ParaDNS;

plugins/async/rhsbl

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 use Qpsmtpd::Plugin::Async::DNSBLBase;
 

plugins/async/uribl

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 use Qpsmtpd::Plugin::Async::DNSBLBase;
 

plugins/auth/auth_checkpassword

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/auth/auth_cvm_unix_local

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/auth/auth_flat_file

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/auth/auth_ldap_bind

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 sub register {
   my ( $self, $qp, @args ) = @_;

plugins/auth/auth_vpopmail

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 use strict;
 
 =head1 NAME

plugins/auth/auth_vpopmail_sql

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/auth/auth_vpopmaild

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 use strict;
 use warnings;

plugins/auth/authdeny

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/check_badmailfrom

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/check_badmailfromto

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/check_badrcptto

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 # this plugin checks the badrcptto config (like badmailfrom, but for rcpt address
 # rather than sender address)

plugins/check_badrcptto_patterns

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 =pod
 
 =head1 SYNOPSIS

plugins/check_basicheaders

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/check_bogus_bounce

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/check_earlytalker

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 =head1 NAME
 
 check_earlytalker - Check that the client doesn't talk before we send the SMTP banner

plugins/check_loop

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/check_norelay

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 =pod
 
 =head1 SYNOPSIS

plugins/check_relay

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 # this plugin checks the relayclients config file and
 # $ENV{RELAYCLIENT} to see if relaying is allowed.

plugins/check_spamhelo

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 =head1 NAME
 
 check_spamhelo - Check a HELO message delivered from a connecting host.

plugins/connection_time

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/content_log

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 # A simple example of a plugin that logs all incoming mail to a file.
 # Useful for debugging other plugins or keeping an archive of things.

plugins/count_unrecognized_commands

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/dns_whitelist_soft

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 =head1 NAME
 
 dns_whitelist_soft - dns-based whitelist override for other qpsmtpd plugins

plugins/dnsbl

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/domainkeys

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 sub init {
     my ($self, $qp, %args) = @_;
 

plugins/dont_require_anglebrackets

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
  
 =head1 NAME
 

plugins/dspam

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/greylisting

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 =head1 NAME
 
 denysoft_greylist

plugins/help

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/hosts_allow

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME 
 

plugins/http_config

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 =head1 NAME
 
 http_config

plugins/ident/geoip

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 SYNOPSIS
 

plugins/ident/p0f

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/logging/adaptive

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 # Adaptive logging plugin - logs at one level for successful messages and
 # one level for DENY'd messages
 

plugins/logging/apache

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/logging/connection_id

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 # this is a simple 'connection_id' plugin like the default builtin logging
 #
 # It demonstrates that a logging plugin can call ->log itself as well

plugins/logging/devnull

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 # this is a simple 'drop packets on the floor' plugin
 
 sub hook_logging {

plugins/logging/file

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/logging/syslog

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/logging/transaction_id

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 # this is a simple 'transaction_id' plugin like the default builtin logging
 #
 # It demonstrates that a logging plugin can call ->log itself as well

plugins/logging/warn

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 # this is a simple 'warn' plugin like the default builtin logging
 #
 # It demonstrates that a logging plugin can call ->log itself as well

plugins/milter

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 =head1 NAME
 
 milter

plugins/noop_counter

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/parse_addr_withhelo

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/queue/exim-bsmtp

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 =head1 NAME
 
 exim-bsmtp

plugins/queue/maildir

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/queue/postfix-queue

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/queue/qmail-queue

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/queue/smtp-forward

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 =head1 NAME
 
 smtp-forward

plugins/quit_fortune

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 sub hook_quit {
   my $qp = shift->qp;

plugins/random_error

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 =head1 NAME
 
 random_error

plugins/rcpt_map

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/rcpt_ok

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/rcpt_regexp

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 =head1 NAME
 
 rcpt_regexp - check recipients against a list of regular expressions

plugins/relay_only

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/require_resolvable_fromhost

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 use Qpsmtpd::DSN;
 use Net::DNS qw(mx);
 use Socket;

plugins/rhsbl

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 sub register {
   my ($self, $qp, $denial ) = @_;

plugins/sender_permitted_from

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/spamassassin

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/tls

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/tls_cert

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 use warnings;
 
 # Very basic script to create TLS certificates for qpsmtpd

plugins/uribl

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/virus/aveclient

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 =head1 NAME
 
 aveclient

plugins/virus/bitdefender

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/virus/clamav

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/virus/clamdscan

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

plugins/virus/hbedv

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 # H+B EDV-AV plugin.
 
 =head1 NAME

plugins/virus/kavscanner

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 # Kasperski-AV plugin.
 
 =head1 NAME

plugins/virus/klez_filter

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 sub hook_data_post {
   my ($self, $transaction) = @_;

plugins/virus/sophie

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 use IO::Socket;
 
 sub register {

plugins/virus/uvscan

@@ -1,4 +1,4 @@
-#!perl -Tw
+#!perl -w
 
 =head1 NAME
 

t/01-syntax.t

@@ -16,6 +16,10 @@ my @skip_syntax = qw(
   plugins/auth/auth_ldap_bind
   plugins/ident/geoip
   plugins/logging/apache
+  plugins/auth/auth_vpopmail
+  plugins/virus/clamdscan
+  plugins/sender_permitted_from
+  plugins/domainkeys
   lib/Apache/Qpsmtpd.pm
   lib/Danga/Client.pm
   lib/Danga/TimeoutSocket.pm
@@ -33,8 +37,9 @@ sub test_syntax {
   chomp $f;
   return if ! -f $f;
   return if $skip_syntax{$f};
+  return if $f =~ m/(~|\.(bak|orig|rej))/;
   return if $f =~ /async/;   # requires ParaDNS
-  my $r = `$this_perl -Tc $f 2>&1`;
+  my $r = `$this_perl -Ilib -MQpsmtpd::Constants -c $f 2>&1`;
   my $exit_code = sprintf ("%d", $CHILD_ERROR >> 8);
   ok( $exit_code == 0, "syntax $f");
 };