Initparameter für SL/Mailer

[mfinanz.git] / SL / Mailer.pm

diff --git a/SL/Mailer.pm b/SL/Mailer.pm
index c4cea35f20181affeed2bd1be867520eb4b84bfa..edd0eecdae0169a2c8bef88fd90249b837469f37 100644 (file)
--- a/SL/Mailer.pm
+++ b/SL/Mailer.pm
@@ -44,8 +44,8 @@ my $num_sent = 0;
 sub new {
   $main::lxdebug->enter_sub();
 
-  my ($type) = @_;
-  my $self = {};
+  my ($type, %params) = @_;
+  my $self = { %params };
 
   $main::lxdebug->leave_sub();