add missing return statements noted by PerlCritic

diff --git a/lib/Perl/Tidy/VerticalAligner.pm b/lib/Perl/Tidy/VerticalAligner.pm
index 80ddb56d8aa11a2ebd629014d3cae68a3f1c51e7..2dad48f041559eb25961c3d2a98f242b128b1260 100644 (file)
--- a/lib/Perl/Tidy/VerticalAligner.pm
+++ b/lib/Perl/Tidy/VerticalAligner.pm
@@ -1539,6 +1539,7 @@ sub my_flush {
         # failed terminal else match
         return unless @{$rgroups} > 1;
         $rgroups->[-2]->[2] = -1;
+        return;
     }
 
     sub sweep_top_down {
@@ -2186,6 +2187,7 @@ EOM
 
     sub initialize_decode {
         %decoded_token = ();
+        return;
     }
 
     sub decode_alignment_token {
@@ -3806,6 +3808,7 @@ sub get_output_line_number {
         # the cache
         $seqno_string               = "";
         $last_nonblank_seqno_string = "";
+        return;
     }
 
     sub my_flush_cache {