X-Git-Url: http://git.jankratochvil.net/?p=PerlMail.git;a=blobdiff_plain;f=perlmail-sendmail;h=5ea95ab3b8de6d78e2bbb58bdf7db3c54f34bda8;hp=c84847ddfc7de359bbe098c2040e177dfeb67600;hb=b6cafe7d7201a41899b65acbf286dbb1fce72501;hpb=be8e1bc69e15a29e52d8bbcde5971214a5b8340b diff --git a/perlmail-sendmail b/perlmail-sendmail index c84847d..5ea95ab 100755 --- a/perlmail-sendmail +++ b/perlmail-sendmail @@ -59,8 +59,7 @@ my $opt_b; my $opt_Q; my $opt_q; my $opt_t; -our $opt_f; -our $opt_F; # from PerlMail::Config; +our $opt_f; # not exported, just for local() my $opt_perlmail_dry_run; my @ARGV_save=@ARGV; # for non-bm mode die if !Getopt::Long::GetOptions( @@ -126,7 +125,6 @@ my $from_headername; } # to be utilized later by &FromAddress -our $is_pgp; # from PerlMail::Config; $is_pgp=(1 && do { local $_=$head->mime_attr("Content-Type"); $_ && ~m#^multipart/(?:signed|encrypted)$#; } && do { local $_=$head->mime_attr("Content-Type.protocol"); $_ && ~m#^application/pgp\b#; }