update comments

diff --git a/lib/Perl/Tidy/VerticalAligner.pm b/lib/Perl/Tidy/VerticalAligner.pm
index fd0361ba9195b3027a8b5a567524765817b1b938..c8d060b7c08480292966400102227a74f5427f5e 100644 (file)
--- 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};