From c7042887ee4c37a17764ef68c5ebf21bc8f62021 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Thu, 30 Jun 2022 06:11:21 -0700
Subject: [PATCH] fix b1356

---
 dev-bin/run_convergence_tests.pl.data | 24 ++++++++++++++++++++++++
 lib/Perl/Tidy/Formatter.pm            |  7 ++++++-
 2 files changed, 30 insertions(+), 1 deletion(-)

diff --git a/dev-bin/run_convergence_tests.pl.data b/dev-bin/run_convergence_tests.pl.data
index 6be37e2f..18849876 100644
--- a/dev-bin/run_convergence_tests.pl.data
+++ b/dev-bin/run_convergence_tests.pl.data
@@ -10067,6 +10067,30 @@ my $data =
 --indent-columns=1
 --maximum-line-length=72
 
+==> b1356.in <==
+# S1
+%phonebook = (
+ "Bob"  => "247305",
+ "Phil" => "205832",
+ "Sara" => "226010"
+);
+
+# S2
+%phonebook
+         = (
+   "Bob"  => "247305",
+   "Phil" => "205832",
+   "Sara" => "226010"
+         );
+
+
+==> b1356.par <==
+--continuation-indentation=9
+--extended-line-up-parentheses
+--indent-columns=1
+--maximum-line-length=22
+--want-break-before=' = '
+
 ==> b140.in <==
 $cmd[ $i ]=[
 	 $s, $e, $cmd, \@hunk, $i ] ;
diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 742f751c..57f7b048 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -21558,8 +21558,13 @@ sub get_available_spaces_to_go {
                     my $i_test = $last_equals;
 
                     # Fix for issue b1229, check for break before
+                    # Fix for issue b1356, i_test must never be blank
+                    #   ( the ci value for blanks can vary )
                     if ( $want_break_before{ $types_to_go[$i_test] } ) {
-                        if ( $i_test > 0 ) { $i_test-- }
+                        if ( $i_test > 0 && $types_to_go[ $i_test - 1 ] ne 'b' )
+                        {
+                            $i_test--;
+                        }
                     }
                     elsif ( $types_to_go[ $i_test + 1 ] eq 'b' ) { $i_test++ }
 
-- 
2.39.5