Testfehler: keine indirekte Objektnotation nutzen

diff --git a/SL/Mailer.pm b/SL/Mailer.pm
index abc25f7ce84f11f857166a919d7c86cca45c57ae..801c38d345638cdcbd78a12c436bd5facfba9cc6 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;