Testfehler: keine indirekte Objektnotation nutzen

diff --git a/SL/Mailer.pm b/SL/Mailer.pm
index abc25f7..801c38d 100644 (file)
--- a/SL/Mailer.pm
+++ b/SL/Mailer.pm
@@ -50,7 +50,7 @@ my %mail_delivery_modules = (
 sub new {
   my ($type, %params) = @_;
   my $self = { %params };
-  $parser = new MIME::Parser;
+  $parser = MIME::Parser->new;
   $parser->output_under("users");
 
   bless $self, $type;