mirror/openssl
2
0
Fork 0
mirror of https://github.com/openssl/openssl.git synced 2025-04-06 20:20:50 +08:00
Code Issues Packages Projects Releases Wiki Activity

OpenSSL::paramnames: Use less magic perl

Browse Source 
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)
This commit is contained in:
Richard Levitte 2023-06-12 06:31:25 +02:00 committed by Pauli
parent eb4129e12c
commit 3691f1e556
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
util/perl/OpenSSL/paramnames.pm
View File

@ -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";