From a440ae71cd365bd7a8bcaced46d688592c4cd88e Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Wed, 23 Jan 2019 16:40:13 -0800
Subject: [PATCH] cleaned up error messages

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

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 0bc780fd..616a5264 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -2413,7 +2413,7 @@ sub respace_tokens {
                 }
                 else {
                     # shouldn't happen
-                    print STDERR "Ugh: shouldn't happen\n";
+                    Fault("Ugh: shouldn't happen");
                 }
             }
         }
@@ -7910,7 +7910,7 @@ sub starting_one_line_block {
 
     my $jmax_check = @{$rtoken_array};
     if ( $jmax_check < $jmax ) {
-        print STDERR "jmax=$jmax > $jmax_check\n";
+        Fault("jmax=$jmax > $jmax_check");
     }
 
     # kill any current block - we can only go 1 deep
@@ -14869,7 +14869,7 @@ sub undo_forced_breakpoint_stack {
 
 	    # safety check - shouldn't happen
 	    if ($types_to_go[$i_semicolon] ne ';') {
-		print STDERR "unexpected type looking for semicolon, ignoring\n";
+		Fault("unexpected type looking for semicolon, ignoring");
 		next;
 	    }
 
-- 
2.39.5