From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 10 Jun 2019 17:35:48 +0000 (-0700)
Subject: fix for git#13, trailing whitespace in error msg
X-Git-Tag: 20190915~19
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=68911bceb12e2cd50be67d7286f8487076226ad0;p=perltidy.git

fix for git#13, trailing whitespace in error msg
---

diff --git a/CHANGES.md b/CHANGES.md
index f6bf3732..85b165b1 100644
--- 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 a5202893..9742f764 100644
--- 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" );