From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 30 Sep 2023 14:08:06 +0000 (-0700)
Subject: eliminate a needless else block for clarity
X-Git-Tag: 20230912.03~14
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ebded7d636becb92acf135ae0190043cf3b7ba37;p=perltidy.git

eliminate a needless else block for clarity
---

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index c846a544..2ad9d1d6 100644
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -2066,14 +2066,12 @@ sub prepare_for_a_new_file {
             $rtokens->[$i] = $tok_0;
             return 1;
         }
-        else {
 
-            # Shouldn't get here
-            if (DEVEL_MODE) {
-                $self->Fault(<<EOM);
+        # Shouldn't get here - bad call parameters
+        if (DEVEL_MODE) {
+            $self->Fault(<<EOM);
 While working near line number $input_line_number, bad arg '$tok' passed to sub split_pretoken()
 EOM
-            }
         }
         return;
     } ## end sub split_pretoken