+ my $phrase=(defined $opt_F ? $opt_F : "Jan Kratochvil");
+ {
+ last if !$is_pgp;
+ last if $iserror;
+ local *F;
+ local $_;
+ my $filename="$HOME/.gnupg/options";
+ open F,$filename or do { warn "Open \"$filename\": $!"; last; };
+ local $/="\n";
+ my @keys=map((/^\s*default-key\s+(\S+)\s*$/),<F>);
+ @keys==1 or do { warn "Found ".scalar(@keys)." 'default-key's in your \"$filename\", ignoring"; last; };
+ close F or warn "Close \"$filename\": $!";
+ my $default_key=$keys[0];
+ $default_key=~/^[[:xdigit:]]{8}$/ or do { warn "Invalid 'default-key', ignoring: $default_key"; last; };
+ return Mail::Address->new(
+ $phrase,
+ 'pgp-'.uc($default_key).'@jankratochvil.net',
+ );
+ }
+ # !$is_pgp or fallback