fix for git#13, trailing whitespace in error msg

diff --git a/CHANGES.md b/CHANGES.md
index f6bf37327d5061e999e5b794f018be550a76efa5..85b165b18ff17fa8cf190bf6136d9bb86c313604 100644 (file)
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -2,6 +2,10 @@
 
 ## 2019 06 01.01
 
+    - fixed issue git#9: if the -ce (--cuddled-else) flag is used,
+      do not try to form new one line blocks for a block type 
+      specified with -cbl, particularly map, sort, grep
+
     - some improved vertical alignments
 
 ## 2019 06 01

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index a5202893aec183861f41cccfdc2a33802b32b5d5..9742f764f80462353c3f8d074815827430e05b0e 100644 (file)
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -4718,6 +4718,7 @@ sub report_unexpected {
               write_on_underline( $underline, $pos_prev - $offset, '-' x $num );
             $trailer = " (previous token underlined)";
         }
+        $underline =~ s/\s+$//;
         warning( $numbered_line . "\n" );
         warning( $underline . "\n" );
         warning( $msg . $trailer . "\n" );