X-Git-Url: https://git.openssl.org/gitweb/?a=blobdiff_plain;f=util%2Fperl%2FOpenSSL%2Fparamnames.pm;fp=util%2Fperl%2FOpenSSL%2Fparamnames.pm;h=a5126858e791af9669ac313a6d1470b2bb6f557c;hb=3691f1e5567d6b61ed917adf48b40ae95ac5cb17;hp=66c6fdda227928fbdaca156f3cc261c8a5691ecd;hpb=eb4129e12cdf7fe64b3ce352f539e3dbeb1b1321;p=openssl.git

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