minor cleanups for -nib option

diff --git a/bin/perltidy b/bin/perltidy
index 33383d8b3743a14ff98e2432f6e54ee918f1dcf7..5303d5bdaee1aff0c7c990bb1205087739842620 100755 (executable)
--- a/bin/perltidy
+++ b/bin/perltidy
@@ -883,8 +883,8 @@ For example, to match the side comment '#++', the parameter would be
   -nibp='#\+\+'
 
 Note that the default string is the same as the string for starting a
-B<format-skipping> section, but it is for a side-comment rather than a block
-comment. 
+B<format-skipping> section, but in that case it is for a block comment 
+rather than a side-comment. 
 
 =item B<-olq>, B<--outdent-long-quotes>
 

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 01dd46164ff56f9de1d0b9e90a0a596f789ed44a..4c4ce85334dd5d0a31354f56a29420449c8eda04 100644 (file)
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -4631,8 +4631,7 @@ sub non_indenting_braces {
                 $num -= 1;
             }
         }
-        if ($num) { $level -= $num }
-        $radjusted_levels->[$KK] = $level;
+        $radjusted_levels->[$KK] = $level - $num;
     }
     $self->[_radjusted_levels_] = $radjusted_levels;
     return;
@@ -7359,8 +7358,6 @@ sub copy_token_as_type {
         @inext_to_go                 = ();
         @iprev_to_go                 = ();
 
-        ##$summed_lengths_to_go[0] = 0;
-
         $rbrace_follower      = undef;
         $comma_count_in_batch = 0;
         $ending_in_quote      = 0;