New upstream version 20190601

[perltidy.git] / examples / perltidyrc_dump.pl

diff --git a/examples/perltidyrc_dump.pl b/examples/perltidyrc_dump.pl
index 8c598cf5121ffa4a03909d1d22a7c77c15a58b0f..f2008e71a538c62efed6eefcedd87207c491dc1f 100755 (executable)
--- a/examples/perltidyrc_dump.pl
+++ b/examples/perltidyrc_dump.pl
@@ -190,8 +190,17 @@ 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_option = $short_prefix . $short_name . $suffix;
             my $long_option  = $prefix . $long_name . $suffix;
+
+           # A few options do not have a short abbreviation.  These include
+           # 'recombine' and 'valign', which are mainly for debugging.  As a
+           # workaround, we will make it the same as the long option. This
+           # will insure that the -s -q flags work.  
+           my $short_option = $long_option;
+           if ($short_name) {
+               $short_option = $short_prefix . $short_name . $suffix;
+           }
+
             my $note = $requals_default->{$long_name} ? "  [=default]" : "";
             if ( $rmy_opts->{s} ) {
                 print $short_option. "\n";