X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=examples%2Fperltidyrc_dump.pl;h=f2008e71a538c62efed6eefcedd87207c491dc1f;hb=refs%2Ftags%2Fupstream%2F20190601;hp=8c598cf5121ffa4a03909d1d22a7c77c15a58b0f;hpb=5af8685bea60c00aae46266c726ddfb0132d7d12;p=perltidy.git

diff --git a/examples/perltidyrc_dump.pl b/examples/perltidyrc_dump.pl
index 8c598cf..f2008e7 100755
--- 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";