[svn:qpsmtpd] r706 - in branches/0.3x: lib t/Test

[msergeant]

Author: msergeant
Date: Thu Jan 11 15:52:51 2007
New Revision: 706

Modified:
   branches/0.3x/lib/Qpsmtpd.pm
   branches/0.3x/t/Test/Qpsmtpd.pm

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


Modified: branches/0.3x/lib/Qpsmtpd.pm
==============================================================================
--- branches/0.3x/lib/Qpsmtpd.pm        (original)
+++ branches/0.3x/lib/Qpsmtpd.pm        Thu Jan 11 15:52:51 2007
@@ -274,7 +274,6 @@
   my $self = shift;
   my ($plugin_line, @plugin_dirs) = @_;
 
-  my @ret;  
   my ($plugin, @args) = split ' ', $plugin_line;
 
   my $package;
@@ -330,9 +329,8 @@
 
   my $plug = $package->new();
   $plug->_register($self, @args);
-  push @ret, $plug;
   
-  return @ret;
+  return $plug;
 }
 
 sub transaction {

Modified: branches/0.3x/t/Test/Qpsmtpd.pm
==============================================================================
--- branches/0.3x/t/Test/Qpsmtpd.pm     (original)
+++ branches/0.3x/t/Test/Qpsmtpd.pm     Thu Jan 11 15:52:51 2007
@@ -70,8 +70,8 @@
     './config.sample';
 }
 
-sub plugin_dir {
-    './plugins';
+sub plugin_dirs {
+    ('./plugins');
 }
 
 sub log {