FAQ | This is a LIVE service | Changelog

Commit f55e6bee authored by Tony Finch's avatar Tony Finch

ReGPG::Login: save filename in $self as promised

And avoid accesing undefined gpg_d member.
parent 30c3fd70
......@@ -45,7 +45,8 @@ sub new {
my $yml = $opt{filename};
my $dir = dirname $yml;
my $self = YAML::LoadFile $yml;
my $gpg_d = $self->{gpg_d};
$self->{filename} = $yml;
my $gpg_d = $self->{gpg_d} // {};
for my $k (keys %$gpg_d) {
my $asc = $dir.'/'.$gpg_d->{$k};
my $clear = $asc =~ s{\.asc$}{}r;
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment