From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 5 Sep 2020 22:18:19 +0000 (-0700)
Subject: fix problem causing unitialized values at VERSION stmt when -io used
X-Git-Tag: 20200907~4
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c084430d58b5e64b98a245e67de8de13af5f43c9;p=perltidy.git

fix problem causing unitialized values at VERSION stmt when -io used
---

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;
     }