From 710a8b81ebf4b4ddd3686d8f36df1fa8db4e01ae Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Fri, 18 Mar 2022 17:48:34 -0700
Subject: [PATCH] fix error recovery for issue b1327

---
 dev-bin/run_convergence_tests.pl.data | 17 +++++++++++++++++
 lib/Perl/Tidy/Formatter.pm            |  4 ++--
 2 files changed, 19 insertions(+), 2 deletions(-)

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 ']',
-- 
2.39.5