提交 3691f1e5 编写于 作者: R Richard Levitte 提交者: Pauli

OpenSSL::paramnames: Use less magic perl

Constructions like $$cursor{whatever} and %$cursor{whatever} were ambiguous
in some perl versions, and it's still better to use the arrow syntax for the
way we use them, i.e. they can both be replaced with $cursor->{whatever}.

Fixes #21152
Fixes #21172
Reviewed-by: NTomas Mraz <tomas@openssl.org>
Reviewed-by: NBernd Edlinger <bernd.edlinger@hotmail.de>
Reviewed-by: NPaul Dale <pauli@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/21178)
上级 eb4129e1
......@@ -576,12 +576,12 @@ sub generate_trie {
}
if (not defined $$cursor{$c}) {
$$cursor{$c} = {};
$cursor->{$c} = {};
$nodes++;
}
$cursor = %$cursor{$c};
$cursor = $cursor->{$c};
}
$$cursor{'val'} = $name;
$cursor->{'val'} = $name;
}
}
#print "\n\n/* $nodes nodes for $chars letters*/\n\n";
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册