Initparameter für SL/Mailer

Damit man das charset mitgeben kann.

diff --git a/SL/Mailer.pm b/SL/Mailer.pm
index c4cea35..edd0eec 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();