From d6afc4f8a6342c6d480e98bc968cabe7a52c1363 Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Mon, 13 Mar 2023 08:03:38 -0700 Subject: [PATCH] update comments --- lib/Perl/Tidy/Formatter.pm | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm index b331005a..d2f9f037 100644 --- a/lib/Perl/Tidy/Formatter.pm +++ b/lib/Perl/Tidy/Formatter.pm @@ -11619,24 +11619,24 @@ sub special_indentation_adjustments { my ($self) = @_; - # Called once per file to do special indentation adjustments. - # These routines adjust levels either by changing _CI_LEVEL_ directly or + # Called once per file to define the levels to be used for computing + # actual indentation. These levels are initialized to be the structural + # levels and then are adjusted if necessary for special purposes. + # The adjustments are made either by changing _CI_LEVEL_ directly or # by setting modified levels in the array $self->[_radjusted_levels_]. - # Initialize the adjusted levels. These will be the levels actually used - # for computing indentation. - # NOTE: This routine is called after the weld routines, which may have - # already adjusted _LEVEL_, so we are making adjustments on top of those - # levels. It would be much nicer to have the weld routines also use this - # adjustment, but that gets complicated when we combine -gnu -wn and have - # some welded quotes. + # already adjusted the initial values of _LEVEL_, so we are making + # adjustments on top of those levels. It would be nicer to have the + # weld routines also use this adjustment, but that gets complicated + # when we combine -gnu -wn and also have some welded quotes. my $Klimit = $self->[_Klimit_]; my $rLL = $self->[_rLL_]; my $radjusted_levels = $self->[_radjusted_levels_]; return unless ( defined($Klimit) ); + # Initialize the adjusted levels to be the structural levels foreach my $KK ( 0 .. $Klimit ) { $radjusted_levels->[$KK] = $rLL->[$KK]->[_LEVEL_]; } -- 2.39.5