QueryApp: standardise entirely on Carp in the lib
authorRichard Levitte <richard@levitte.org>
Wed, 14 Jun 2017 08:27:05 +0000 (10:27 +0200)
committerRichard Levitte <richard@levitte.org>
Wed, 14 Jun 2017 08:32:04 +0000 (10:32 +0200)
lib/OpenSSL/Query/PersonDB.pm
lib/OpenSSL/Query/Role/Bureau.pm

index 7c6e6773ad8e9cde6f146f7f241aec9d62135601..4d9ede35852544bc6ffc44be17ff3ac57134ceb6 100644 (file)
@@ -10,6 +10,7 @@
 use strict;
 
 package OpenSSL::Query::PersonDB;
+
 use Carp;
 use Moo;
 use OpenSSL::Query qw(-register-person OpenSSL::Query::PersonDB -priority 0);
index a574556762187fad32ebad5ea86a7e178531d603..f4771b5e0b0927cd7de9a4d935805ca083f4374a 100644 (file)
@@ -8,9 +8,11 @@
 # https://www.openssl.org/source/license.html
 
 use strict;
+use warnings;
 
 package OpenSSL::Query::Role::Bureau;
 
+use Carp;
 use File::Spec::Functions;
 use Moo::Role;
 
@@ -28,7 +30,7 @@ sub _find_file {
   foreach (@paths) {
     return $_ if -r $_;
   }
-  die "$filename not found in any of ", join(", ", @paths), "\n";
+  croak "$filename not found in any of ", join(", ", @paths), "\n";
 }
 
 1;