From 9d251b87499495bad372da15e143838a54e3ac67 Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Mon, 9 Jun 2008 08:52:18 -0700 Subject: [PATCH] * Remove useless parameters * use Foo->new, not new Foo; --- Debbugs/MIME.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Debbugs/MIME.pm b/Debbugs/MIME.pm index 2a695e5..7859974 100644 --- 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]) }; -- 2.39.2