diff options
| author | Richard Levitte <levitte@openssl.org> | 2023-06-12 06:31:25 +0200 |
|---|---|---|
| committer | Pauli <pauli@openssl.org> | 2023-06-15 15:27:04 +1000 |
| commit | 3691f1e5567d6b61ed917adf48b40ae95ac5cb17 (patch) | |
| tree | c8959e5619d7acee3733b8c9549f1921f48b795c | |
| parent | eb4129e12cdf7fe64b3ce352f539e3dbeb1b1321 (diff) | |
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: Tomas Mraz <tomas@openssl.org>
Reviewed-by: Bernd Edlinger <bernd.edlinger@hotmail.de>
Reviewed-by: Paul Dale <pauli@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/21178)
| -rw-r--r-- | util/perl/OpenSSL/paramnames.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/util/perl/OpenSSL/paramnames.pm b/util/perl/OpenSSL/paramnames.pm index 66c6fdda22..a5126858e7 100644 --- a/util/perl/OpenSSL/paramnames.pm +++ b/util/perl/OpenSSL/paramnames.pm @@ -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"; |