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}) {
-                    $$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";