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 57599740dc994b6ff3a3c52ca12d8671277c6a67..2d4c0f2780f498f539ad8f75eb0cf3f1d6e051f0 100644 (file)
--- 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 0fa94037cb7463092af7adfe0bc5d7b996e86f2f..6d342c0e819bffe2e77e9fd58b4f976f48d2f456 100644 (file)
--- 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;