Commit d712823a authored by Leigh B Stoller's avatar Leigh B Stoller
Browse files

Perl is strange.

parent 17b02e35
......@@ -5812,11 +5812,14 @@ sub AddKeys($$$)
push(@keylist, $keyref->{'key'});
}
my $urn = $ref->{'urn'} if (exists($ref->{'urn'}));
# Allow user to override urn token.
my $uid = $ref->{'login'} if (exists($ref->{'login'}));
my $urn;
my $uid;
my $name;
my $email;
$urn = $ref->{'urn'} if (exists($ref->{'urn'}));
# Allow user to override urn token.
$uid = $ref->{'login'} if (exists($ref->{'login'}));
# The slice owner is easy.
if (defined($urn) && $urn eq $owner->urn()) {
......
Supports Markdown
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