From 68911bceb12e2cd50be67d7286f8487076226ad0 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 10 Jun 2019 10:35:48 -0700
Subject: [PATCH] fix for git#13, trailing whitespace in error msg

---
 CHANGES.md                 | 4 ++++
 lib/Perl/Tidy/Tokenizer.pm | 1 +
 2 files changed, 5 insertions(+)

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" );
-- 
2.39.5