sub first_part{
my ($ent) = @_;
- return first_part $ent->parts(0) if $ent->parts;
+ return first_part ($ent->parts(0)) if $ent->parts;
stringify [$ent->bodyhandle->as_lines]
}
'from=s' => \$ENV{EDWARDNG_FROM},
'key=s' => \$ENV{EDWARDNG_KEY},
'keydir=s' => \$ENV{EDWARDNG_KEYDIR},
+ 'logfile=s' => \$ENV{EDWARDNG_LOGFILE},
'passphrase=s' => \$ENV{EDWARDNG_PASSPHRASE},
'tmpl-path=s' => \$ENV{EDWARDNG_TMPL_PATH},
'use-agent!' => \$ENV{EDWARDNG_USE_AGENT},
);
my $tmpl_path = $ENV{EDWARDNG_TMPL_PATH} // 'en';
+ open STDERR, '>>', $ENV{EDWARDNG_LOGFILE} if $ENV{EDWARDNG_LOGFILE};
my $parser = MIME::Parser->new;
$parser->decode_bodies(0);