update some closing side comments to keep perlcritic happy

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index 350d1001034888ab306a77f3b635ceaf1cf6b07c..18d1cd3e2913aabf06dcf427f81821b7b3c589c7 100644 (file)
--- 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 07451c649cc6935a5717841ce5ae28c5b8c6a744..4128607156c5a2321796975388c0ab06d2fb2e44 100644 (file)
--- 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 1b719cc111479f262d994bc11ebca8b10ca5c723..f400052dbd977da64384c8f05ec3cea950be4088 100644 (file)
--- 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 1a47120eec70abeb670daf71f98b4ffdc484b027..076b1c0e8b4e11ea53a979f81993bcfa86862bcb 100644 (file)
--- 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 c70ac934923d6fcf7fe7c3e4665fffa234ed3469..3fdff6ea359f4e9bbea624b9194a0ad6bd04c369 100644 (file)
--- 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 ff8cae030504d4c4528dad158f2178016e7bc97d..6876421927956c5786c8ac8ad64adcf0b7a1f3fe 100644 (file)
--- 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 3381b1234f4e1841fdc73a1cfff80244c0179d62..fee0f2cb0b6b78e0a8db58559dbc7bfe062ef99e 100644 (file)
--- 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 4cdd0f4a202e7c34dc13b77f387da7f97cfca051..3d20c8a06a5bd4adc4fb0d563425f793e0c8e48f 100644 (file)
--- 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 {