develooper Front page | perl.cvs.qpsmtpd | Postings from January 2007

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

From:
msergeant
Date:
January 11, 2007 14:53
Subject:
[svn:qpsmtpd] r706 - in branches/0.3x: lib t/Test
Message ID:
20070111235251.03715CBA1B@x12.develooper.com
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 {



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About