From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Wed, 5 Aug 2020 13:04:22 +0000 (-0700)
Subject: add missing return statements noted by PerlCritic
X-Git-Tag: 20200822~23
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=af575bfe4d6efc17f5bdb6a134eb51c9aebf3ce9;p=perltidy.git

add missing return statements noted by PerlCritic
---

diff --git a/lib/Perl/Tidy/VerticalAligner.pm b/lib/Perl/Tidy/VerticalAligner.pm
index 80ddb56d..2dad48f0 100644
--- 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 {