update docs

diff --git a/bin/perltidy b/bin/perltidy
index 08835e31abaa58c57bf9734227371a510412218a..7040e10f5dde6cc78e3a493554de83d6ccf3e338 100755 (executable)
--- a/bin/perltidy
+++ b/bin/perltidy
@@ -3505,8 +3505,10 @@ Here are some example parameter combinations and their meanings
 
   -wtc=0 -dtc   : delete all trailing commas
   -wtc=1 -atc   : put trailing commas on all lists
-  -wtc=m -atc   : all multi-line lists get trailing commas;
+  -wtc=m -atc   : all multi-line lists get trailing commas, and
                   single line lists remain unchanged.
+  -wtc=m -dtc   : multi-line lists remain unchanged, and
+                  any trailing commas on single line lists are removed.
   -wtc=m -atc -dtc  : all multi-line lists get trailing commas, and
                       any trailing commas on single line lists are removed.
 

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 38f3aea9f7169f35c2f07096b2d998631a0d24b2..bb4f4f676ee3a8b4c8151486d9ba67bafb4b15e8 100644 (file)
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -15623,7 +15623,7 @@ EOM
         } ## end for ( my $i = 0 ; $i <=...)
 
         # Break at a single interior C-style for semicolon in this batch (c154)
-        if ( @i_for_semicolon == 1 ) {
+        if ( @i_for_semicolon && @i_for_semicolon == 1 ) {
             my $i     = $i_for_semicolon[0];
             my $inext = $inext_to_go[$i];
             if ( $inext <= $max_index_to_go && $types_to_go[$inext] ne '#' ) {