* Remove useless parameters

 * use Foo->new, not new Foo;

diff --git a/Debbugs/MIME.pm b/Debbugs/MIME.pm
index 2a695e5859a96a506cceac22c7abba40df44e51b..785997477ce9a3e2af44051f6a76595d02e61155 100644 (file)
--- a/Debbugs/MIME.pm
+++ b/Debbugs/MIME.pm
@@ -56,12 +56,12 @@ sub getmailbody
     return undef;
 }
 
-sub parse ($)
+sub parse
 {
     # header and decoded body respectively
     my (@headerlines, @bodylines);
 
-    my $parser = new MIME::Parser;
+    my $parser = MIME::Parser->new();
     mkdir "mime.tmp.$$", 0777;
     $parser->output_under("mime.tmp.$$");
     my $entity = eval { $parser->parse_data($_[0]) };