From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Thu, 4 Jan 2024 14:32:40 +0000 (-0800)
Subject: avoid reused name
X-Git-Tag: 20230912.12~13
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=a06266a5ba6db22276e1d00f48417c8fa2dc0694;p=perltidy.git

avoid reused name
---

diff --git a/examples/perltidyrc_dump.pl b/examples/perltidyrc_dump.pl
index 49f243d3..06f3a042 100755
--- a/examples/perltidyrc_dump.pl
+++ b/examples/perltidyrc_dump.pl
@@ -123,7 +123,7 @@ sub dump_options {
     }
 
     # build a table for long_name->short_name abbreviations
-    my %short_name;
+    my %short_name_for_long_name;
     foreach my $abbrev ( sort keys %$rabbreviations ) {
         my @list = @{ $$rabbreviations{$abbrev} };
 
@@ -133,7 +133,7 @@ sub dump_options {
         # here.
         next unless @list == 1;
         my $long_name = $list[0];
-        $short_name{$long_name} = $abbrev;
+        $short_name_for_long_name{$long_name} = $abbrev;
     }
 
     unless ( $rmy_opts->{q} ) {
@@ -190,7 +190,7 @@ sub dump_options {
 
             # print the long version of the parameter
             # with the short version as a side comment
-            my $short_name   = $short_name{$long_name};
+            my $short_name   = $short_name_for_long_name{$long_name};
             my $long_option  = $prefix . $long_name . $suffix;
 
 	    # A few options do not have a short abbreviation.  These include