Simplify multi-column to single column

Fixes - Negative repeat count does nothing at /usr/lib64/perl5/vendor_perl/Cyrus/IMAP/Shell.pm line 688
jeffgoh · Mar 9, 2024 · 9a0df89 · 9a0df89
1 parent 0c2ebac
commit 9a0df89
Showing 1 changed file with 2 additions and 7 deletions.
diff --git a/perl/imap/IMAP/Shell.pm b/perl/imap/IMAP/Shell.pm
@@ -685,13 +685,8 @@ sub _sc_list {
   $w = $ll if $w > $ll;
   my $n = int($ll / $w);
   my $c;
-  for ($l = 0; $l < int((@l + $n - 1) / $n); $l++) {
-    for ($c = 0; $c < @l; $c += int((@l + $n - 1) / $n)) {
-      if ($l + $c < @l) {
-        $lfh->[1]->print($l[$l + $c], ' ' x ($w + 1 - length($l[$l + $c])));
-      }
-    }
-    $lfh->[1]->print("\n");
+  for (@l) {
+    $lfh->[1]->print("$_","\n");
   }
   0;
 }