From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 19 Mar 2022 00:48:34 +0000 (-0700)
Subject: fix error recovery for issue b1327
X-Git-Tag: 20220217.02~6
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=710a8b81ebf4b4ddd3686d8f36df1fa8db4e01ae;p=perltidy.git

fix error recovery for issue b1327
---

diff --git a/dev-bin/run_convergence_tests.pl.data b/dev-bin/run_convergence_tests.pl.data
index d3273351..57ef1797 100644
--- a/dev-bin/run_convergence_tests.pl.data
+++ b/dev-bin/run_convergence_tests.pl.data
@@ -9461,6 +9461,23 @@ my $parser =
 --indent-columns=0
 --maximum-line-length=53
 
+==> b1327.in <==
+ @where=
+   $self->_where()->where_clause(
+                  'Fey::FakeDBI','no WHERE'
+   )if$self->_has_where();
+
+ @where=$self->_where()->where_clause(
+                  'Fey::FakeDBI','no WHERE'
+ )if$self->_has_where();
+
+==> b1327.par <==
+--noadd-whitespace
+--extended-line-up-parentheses
+--indent-columns=1
+--keep-old-breakpoints-after='} ) ]'
+--maximum-line-length=43
+
 ==> b140.in <==
 $cmd[ $i ]=[
 	 $s, $e, $cmd, \@hunk, $i ] ;
diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 5731345b..fa436d6d 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -2358,8 +2358,8 @@ EOM
         && !$rkeep_break_hash->{')'}
         && !$rkeep_break_hash->{']'} )
     {
-        $rkeep_break_hash->{'('} = 1;
-        $rkeep_break_hash->{'['} = 1;
+        $rkeep_break_hash->{')'} = 1;
+        $rkeep_break_hash->{']'} = 1;
         Warn(<<EOM);
 Sorry, but the format for the -kbb and -kba flags is changing a little.
 You entered '}' which currently matches each of '}' ')' and ']',