* use Foo->new, not new Foo;
{
# header and decoded body respectively
my (@headerlines, @bodylines);
{
# 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]) };
mkdir "mime.tmp.$$", 0777;
$parser->output_under("mime.tmp.$$");
my $entity = eval { $parser->parse_data($_[0]) };