From a06266a5ba6db22276e1d00f48417c8fa2dc0694 Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Thu, 4 Jan 2024 06:32:40 -0800 Subject: [PATCH] avoid reused name --- examples/perltidyrc_dump.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 -- 2.39.5