From 25050402070e2d1ebb51ece42fc510ab90d46032 Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Thu, 16 Nov 2023 07:46:28 -0800 Subject: [PATCH] update comments --- lib/Perl/Tidy/VerticalAligner.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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}; -- 2.39.5