eliminate a needless else block for clarity

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index c846a544259d15074f5f9ac33c9fa168c3c1eae5..2ad9d1d6c1a0965cc752c99bdfa8f8536b74b990 100644 (file)
--- 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