From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Thu, 16 Nov 2023 15:46:28 +0000 (-0800)
Subject: update comments
X-Git-Tag: 20230912.06~24
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=25050402070e2d1ebb51ece42fc510ab90d46032;p=perltidy.git

update comments
---

diff --git a/lib/Perl/Tidy/VerticalAligner.pm b/lib/Perl/Tidy/VerticalAligner.pm
index fd0361ba..c8d060b7 100644
--- a/lib/Perl/Tidy/VerticalAligner.pm
+++ b/lib/Perl/Tidy/VerticalAligner.pm
@@ -533,7 +533,7 @@ sub valign_input {
     # we receive one line of specially marked text for vertical alignment.
     # We compare the line with the current group, and either:
     # - the line joins the current group if alignments match, or
-    # - the current group is flushed and a new group is started otherwise
+    # - the current group is flushed and a new group is started
     #---------------------------------------------------------------------
     #
     # The key input parameters describing each line are:
@@ -2388,6 +2388,10 @@ sub sweep_left_to_right {
 
         my ($rcall_hash) = @_;
 
+        # This is the worker routine for sub 'sweep_left_to_right'. Make
+        # vertical alignments by sweeping from left to right over groups
+        # of lines which have been located and prepared by the caller.
+
         my $rlines      = $rcall_hash->{rlines};
         my $rgroups     = $rcall_hash->{rgroups};
         my $rtodo       = $rcall_hash->{rtodo};