From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sun, 7 Jan 2024 00:56:15 +0000 (-0800)
Subject: update some closing side comments to keep perlcritic happy
X-Git-Tag: 20230912.12~1
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=86be1f316772aaaf1718f28edf1b53d8ffb2b4b2;p=perltidy.git

update some closing side comments to keep perlcritic happy
---

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index 350d1001..18d1cd3e 100644
--- a/lib/Perl/Tidy.pm
+++ b/lib/Perl/Tidy.pm
@@ -5796,7 +5796,7 @@ sub dump_integer_option_range {
         print {*STDOUT} "$key, $min, $max, $default\n";
     }
     return;
-} ## end sub dump_integer_option-range
+} ## end sub dump_integer_option_range
 
 sub dump_defaults {
     my @defaults = @_;
diff --git a/lib/Perl/Tidy/Diagnostics.pm b/lib/Perl/Tidy/Diagnostics.pm
index 07451c64..41286071 100644
--- a/lib/Perl/Tidy/Diagnostics.pm
+++ b/lib/Perl/Tidy/Diagnostics.pm
@@ -41,7 +41,7 @@ This error is probably due to a recent programming change
 ======================================================================
 EOM
     exit 1;
-}
+} ## end sub AUTOLOAD
 
 sub DESTROY {
 
@@ -57,7 +57,7 @@ sub new {
         _input_file              => EMPTY_STRING,
         _fh                      => undef,
     }, $class;
-}
+} ## end sub new
 
 sub set_input_file {
     my ( $self, $input_file ) = @_;
@@ -92,6 +92,6 @@ sub write_diagnostics {
     $fh->print($msg);
     $self->{_write_diagnostics_count}++;
     return;
-}
+} ## end sub write_diagnostics
 
 1;
diff --git a/lib/Perl/Tidy/IOScalar.pm b/lib/Perl/Tidy/IOScalar.pm
index 1b719cc1..f400052d 100644
--- a/lib/Perl/Tidy/IOScalar.pm
+++ b/lib/Perl/Tidy/IOScalar.pm
@@ -38,7 +38,7 @@ This error is probably due to a recent programming change
 ======================================================================
 EOM
     exit 1;
-}
+} ## end sub AUTOLOAD
 
 sub DESTROY {
 
@@ -78,7 +78,7 @@ expecting mode = 'r' or 'w' but got mode ($mode); trace follows:
 ------------------------------------------------------------------------
 EOM
     }
-}
+} ## end sub new
 
 sub getline {
     my $self = shift;
@@ -92,7 +92,7 @@ EOM
     }
     my $i = $self->[2]++;
     return $self->[0]->[$i];
-}
+} ## end sub getline
 
 sub print    ## no critic (Subroutines::ProhibitBuiltinHomonyms)
 {
@@ -107,5 +107,5 @@ EOM
     }
     ${ $self->[0] } .= $msg;
     return;
-}
+} ## end sub print
 1;
diff --git a/lib/Perl/Tidy/IOScalarArray.pm b/lib/Perl/Tidy/IOScalarArray.pm
index 1a47120e..076b1c0e 100644
--- a/lib/Perl/Tidy/IOScalarArray.pm
+++ b/lib/Perl/Tidy/IOScalarArray.pm
@@ -41,7 +41,7 @@ This error is probably due to a recent programming change
 ======================================================================
 EOM
     exit 1;
-}
+} ## end sub AUTOLOAD
 
 sub DESTROY {
 
@@ -74,7 +74,7 @@ expecting mode = 'r' or 'w' but got mode ($mode); trace follows:
 ------------------------------------------------------------------------
 EOM
     }
-}
+} ## end sub new
 
 sub getline {
     my $self = shift;
@@ -88,7 +88,7 @@ EOM
     }
     my $i = $self->[2]++;
     return $self->[0]->[$i];
-}
+} ## end sub getline
 
 sub print    ## no critic (Subroutines::ProhibitBuiltinHomonyms)
 {
@@ -103,5 +103,5 @@ EOM
     }
     push @{ $self->[0] }, $msg;
     return;
-}
+} ## end sub print
 1;
diff --git a/lib/Perl/Tidy/Logger.pm b/lib/Perl/Tidy/Logger.pm
index c70ac934..3fdff6ea 100644
--- a/lib/Perl/Tidy/Logger.pm
+++ b/lib/Perl/Tidy/Logger.pm
@@ -467,7 +467,7 @@ sub report_definite_bug {
 sub get_save_logfile {
     my $self = shift;
     return $self->{_save_logfile};
-} ## end sub get_save_logfile
+}
 
 sub finish {
 
diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index ff8cae03..68764219 100644
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -815,7 +815,7 @@ sub increment_brace_error {
 sub get_saw_brace_error {
     my $self = shift;
     return $self->[_saw_brace_error_];
-} ## end sub get_saw_brace_error
+}
 
 sub report_definite_bug {
     my $self = shift;
diff --git a/lib/Perl/Tidy/VerticalAligner.pm b/lib/Perl/Tidy/VerticalAligner.pm
index 3381b123..fee0f2cb 100644
--- a/lib/Perl/Tidy/VerticalAligner.pm
+++ b/lib/Perl/Tidy/VerticalAligner.pm
@@ -5719,7 +5719,7 @@ EOM
         }
     }
     return $line;
-}
+} ## end sub add_leading_tabs
 
 sub valign_output_step_D {
 
diff --git a/lib/Perl/Tidy/VerticalAligner/Alignment.pm b/lib/Perl/Tidy/VerticalAligner/Alignment.pm
index 4cdd0f4a..3d20c8a0 100644
--- a/lib/Perl/Tidy/VerticalAligner/Alignment.pm
+++ b/lib/Perl/Tidy/VerticalAligner/Alignment.pm
@@ -36,7 +36,7 @@ This error is probably due to a recent programming change
 ======================================================================
 EOM
     exit 1;
-}
+} ## end sub AUTOLOAD
 
 sub DESTROY {