new sub set_lp_indentation fixes b1235 b1237

diff --git a/dev-bin/run_convergence_tests.pl.data b/dev-bin/run_convergence_tests.pl.data
index db1af0af8b17d14e78e2d156eca199dc42dde5bb..cb9a057dc23223079a6df9bc5b2af84ad4d33edf 100644 (file)
--- a/dev-bin/run_convergence_tests.pl.data
+++ b/dev-bin/run_convergence_tests.pl.data
@@ -7880,6 +7880,42 @@ is(
 --maximum-line-length=12
 --variable-maximum-line-length
 
+==> b1235.in <==
+# S1
+  my $oldage
+          = (
+        sort { $a <=> $b }
+                map { -M }
+                @files )[-1];
+  my $depage
+          = (
+   sort { $a <=> $b }
+   map  { -M } @deps )
+          [0];
+
+# S2
+  my $oldage = (
+   sort {
+    $a <=> $b
+   } map { -M }
+           @files
+  )[-1];
+  my $depage = (
+   sort {
+    $a <=> $b
+   } map { -M }
+           @deps
+  )[0];
+
+==> b1235.par <==
+--break-before-all-operators
+--continuation-indentation=8
+--ignore-old-breakpoints
+--indent-columns=1
+--line-up-parentheses
+--maximum-line-length=26
+--variable-maximum-line-length
+
 ==> b1236.in <==
 # Added level test when applying kpit
 # S1
@@ -7910,6 +7946,29 @@ is(
 --space-keyword-paren
 --variable-maximum-line-length
 
+==> b1237.in <==
+# S1
+ my $h = {
+  map {
+   $_ => uc $_
+  } 'a' .. 'z'
+ };
+
+# S2
+ my $h
+         = {
+       map {$_ => uc $_}
+               'a' .. 'z' };
+
+==> b1237.par <==
+--block-brace-tightness=2
+--break-before-all-operators
+--continuation-indentation=8
+--indent-columns=1
+--line-up-parentheses
+--maximum-line-length=26
+--variable-maximum-line-length
+
 ==> b1238.in <==
 # S1
   local $Other::{ ${ \