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