Fix tests (idea from Guy Hulbert, with tweak from me).

git-svn-id: https://svn.perl.org/qpsmtpd/branches/0.3x@706 958fd67b-6ff1-0310-b445-bb7760255be9

lib/Qpsmtpd.pm

@@ -274,7 +274,6 @@ sub _load_plugin {
   my $self = shift;
   my ($plugin_line, @plugin_dirs) = @_;
 
-  my @ret;  
   my ($plugin, @args) = split ' ', $plugin_line;
 
   my $package;
@@ -330,9 +329,8 @@ sub _load_plugin {
 
   my $plug = $package->new();
   $plug->_register($self, @args);
-  push @ret, $plug;
   
-  return @ret;
+  return $plug;
 }
 
 sub transaction {

t/Test/Qpsmtpd.pm

@@ -70,8 +70,8 @@ sub config_dir {
     './config.sample';
 }
 
-sub plugin_dir {
-    './plugins';
+sub plugin_dirs {
+    ('./plugins');
 }
 
 sub log {