From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 22 Jun 2019 15:16:50 +0000 (-0700)
Subject: fixed RT#129850; change binary whitespace rule
X-Git-Tag: 20190915~14
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=faf9fd64d563e20a68697c6ee0bac52b0a64980f;p=perltidy.git

fixed RT#129850; change binary whitespace rule
 Please enter the commit message for your changes. Lines starting
---

diff --git a/CHANGES.md b/CHANGES.md
index 57599740..2d4c0f27 100644
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -2,6 +2,14 @@
 
 ## 2019 06 01.01
 
+    - fixed for RT#129850; concerning a space between a closing block brace and
+      opening bracket or brace, as occurs before the '[' in this line:
+
+       my @addunix = map { File::Spec::Unix->catfile( @ROOT, @$_ ) } ['b'];
+
+      Formerly, any space was removed. Now it is optional, and the output will
+      follow the input.  
+
     - fixed issue git#13, needless trailing whitespace in error message
 
     - fixed issue git#9: if the -ce (--cuddled-else) flag is used,
diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 0fa94037..6d342c0e 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -1849,7 +1849,7 @@ sub initialize_whitespace_hashes {
     $binary_ws_rules{'t'}{'L'} = WS_NO;
     $binary_ws_rules{'t'}{'{'} = WS_NO;
     $binary_ws_rules{'}'}{'L'} = WS_NO;
-    $binary_ws_rules{'}'}{'{'} = WS_NO;
+    $binary_ws_rules{'}'}{'{'} = WS_OPTIONAL; # RT#129850; was WS_NO
     $binary_ws_rules{'$'}{'L'} = WS_NO;
     $binary_ws_rules{'$'}{'{'} = WS_NO;
     $binary_ws_rules{'@'}{'L'} = WS_NO;