add calls to croak

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index ea9391ffa5f5ce087981e50e2f1dc73f66c44bdc..8f93929c3cdcee75bdfd33b88c4ec928a42d871f 100644 (file)
--- a/lib/Perl/Tidy.pm
+++ b/lib/Perl/Tidy.pm
@@ -735,14 +735,14 @@ EOM
         my $flag = shift;
         if   ($flag) { goto ERROR_EXIT }
         else         { goto NORMAL_EXIT }
-        croak "unexpected return to Exit";
+        croak "unexpected return to sub Exit";
     } ## end sub Exit
 
     sub Die {
         my $msg = shift;
         Warn($msg);
         Exit(1);
-        croak "unexpected return to Die";
+        croak "unexpected return from sub Exit";
     } ## end sub Die
 
     sub Fault {
@@ -771,8 +771,7 @@ $pkg reports VERSION='$VERSION'.
 ==============================================================================
 EOM
 
-        # This return is to keep Perl-Critic from complaining.
-        return;
+        croak "unexpected return from sub Die";
     } ## end sub Fault
 
     # extract various dump parameters

diff --git a/lib/Perl/Tidy/FileWriter.pm b/lib/Perl/Tidy/FileWriter.pm
index 9165adbe8ffa27325921c448a1cbf8fc3e9a5fe3..a65ae2c2dd16c2c8be29adab6f56f43be6b1eabd 100644 (file)
--- a/lib/Perl/Tidy/FileWriter.pm
+++ b/lib/Perl/Tidy/FileWriter.pm
@@ -17,6 +17,7 @@ package Perl::Tidy::FileWriter;
 use strict;
 use warnings;
 our $VERSION = '20240903.06';
+use Carp;
 
 use constant DEVEL_MODE   => 0;
 use constant EMPTY_STRING => q{};
@@ -87,7 +88,7 @@ BEGIN {
 sub Die {
     my ($msg) = @_;
     Perl::Tidy::Die($msg);
-    return;
+    croak "unexpected return from Perl::Tidy::Die";
 }
 
 sub Fault {
@@ -126,8 +127,7 @@ $pkg reports VERSION='$VERSION'.
 ==============================================================================
 EOM
 
-    # This return is to keep Perl-Critic from complaining.
-    return;
+    croak "unexpected return from sub Die";
 } ## end sub Fault
 
 sub warning {