X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lib%2FPerl%2FTidy%2FFileWriter.pm;h=67b7983ac8bb337ef61d5089d142420342dd14d4;hb=8360fafa7774a02a63bd43854a82f22c335851d9;hp=f16a41126c341c6ed0138ee18a8efa418f41955b;hpb=c514d57dc8088e1f4d3f51857b1155c20085c296;p=perltidy.git

diff --git a/lib/Perl/Tidy/FileWriter.pm b/lib/Perl/Tidy/FileWriter.pm
index f16a411..67b7983 100644
--- a/lib/Perl/Tidy/FileWriter.pm
+++ b/lib/Perl/Tidy/FileWriter.pm
@@ -7,7 +7,7 @@
 package Perl::Tidy::FileWriter;
 use strict;
 use warnings;
-our $VERSION = '20220613';
+our $VERSION = '20221112';
 
 use constant DEVEL_MODE   => 0;
 use constant EMPTY_STRING => q{};
@@ -182,11 +182,6 @@ sub get_convergence_check {
     return $self->[_K_arrival_order_matches_] && !@{$rlist};
 }
 
-sub get_K_sequence_error_msg {
-    my ($self) = @_;
-    return $self->[_K_sequence_error_msg_];
-}
-
 sub get_output_line_number {
     return $_[0]->[_output_line_number_];
 }
@@ -305,9 +300,11 @@ $str
 This is probably due to a recent programming change and needs to be fixed.
 EOM
 
+                # Always die during development, this needs to be fixed
                 if (DEVEL_MODE) { Fault($msg) }
 
-                $self->warning($msg);
+                # Otherwise warn if string is not empty (added for b1378)
+                $self->warning($msg) if ( length($str) );
 
                 # Only issue this warning once
                 $self->[_K_sequence_error_msg_] = $msg;