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 d3273351eeeb9217b5c28955bb8c7c72aa4986e0..57ef1797bb711bc67648dbcdbe9a152b2b865b82 100644 (file)
--- 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 5731345bdb9803fcaa844f9c0bc2b1f2fa2aa496..fa436d6d33cbcd1d83031d6aca0d80acf1edee81 100644 (file)
--- 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 ']',