byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/branches/0.3x@706 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2007-01-11 23:52:51 +00:00
parent 02edd1a32a
commit be67f02dd8
2 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/Qpsmtpd.pm
View File

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

4
t/Test/Qpsmtpd.pm
View File

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