projects
/
openssl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
OpenSSL::paramnames: Use less magic perl
[openssl.git]
/
util
/
perl
/
OpenSSL
/
paramnames.pm
diff --git
a/util/perl/OpenSSL/paramnames.pm
b/util/perl/OpenSSL/paramnames.pm
index 66c6fdda227928fbdaca156f3cc261c8a5691ecd..a5126858e791af9669ac313a6d1470b2bb6f557c 100644
(file)
--- a/
util/perl/OpenSSL/paramnames.pm
+++ b/
util/perl/OpenSSL/paramnames.pm
@@
-576,12
+576,12
@@
sub generate_trie {
}
if (not defined $$cursor{$c}) {
}
if (not defined $$cursor{$c}) {
- $
$cursor
{$c} = {};
+ $
cursor->
{$c} = {};
$nodes++;
}
$nodes++;
}
- $cursor =
%$cursor
{$c};
+ $cursor =
$cursor->
{$c};
}
}
- $
$cursor
{'val'} = $name;
+ $
cursor->
{'val'} = $name;
}
}
#print "\n\n/* $nodes nodes for $chars letters*/\n\n";
}
}
#print "\n\n/* $nodes nodes for $chars letters*/\n\n";