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 5505e6927ca4ff8ff509304aface1a113aba5e6b..21b634c671ada52666fdc3bca2f52b5879e336ba 100644 (file)
--- 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;
     }