From c084430d58b5e64b98a245e67de8de13af5f43c9 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 5 Sep 2020 15:18:19 -0700
Subject: [PATCH] fix problem causing unitialized values at VERSION stmt when
 -io used

---
 lib/Perl/Tidy/Formatter.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 5505e692..21b634c6 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -3371,7 +3371,9 @@ sub respace_tokens {
         {
             $Saw_VERSION_in_this_file = 1;
             write_logfile_entry("passing VERSION line; -npvl deactivates\n");
-            $CODE_type = 'VER';
+
+            # This code type has lower priority than others
+            $CODE_type = 'VER' unless ($CODE_type);
         }
         return $CODE_type;
     }
-- 
2.39.5