From ebded7d636becb92acf135ae0190043cf3b7ba37 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 30 Sep 2023 07:08:06 -0700
Subject: [PATCH] eliminate a needless else block for clarity

---
 lib/Perl/Tidy/Tokenizer.pm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

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
-- 
2.39.5