From 3a5c3f0596398d64bb34498f40becbcd32ffa5de Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem@fripost.org>
Date: Wed, 17 Feb 2021 11:42:18 +0100
Subject: Consolidate error messages for consistency.

---
 client | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'client')

diff --git a/client b/client
index e29d2a0..a5490f8 100755
--- a/client
+++ b/client
@@ -97,7 +97,7 @@ my $NONCE;
 
 my $CONFIG = do {
     my $conf = do { local $/ = undef; <$CONFFILE> };
-    close $CONFFILE or die "Can't close: $!";
+    close $CONFFILE or die "close: $!";
     my $h = Config::Tiny::->read_string($conf) or die Config::Tiny::->errstr()."\n";
     $h->{_} //= {};
     $h->{client}->{$_} //= $h->{_}->{$_} foreach keys %{$h->{_}}; # add defaults
@@ -303,11 +303,11 @@ elsif ($COMMAND eq 'newOrder') {
         # serve $keyAuthorization at http://$domain/.well-known/acme-challenge/$challenge->{token}
         if (sysopen(my $fh, $challenge->{token}, O_CREAT|O_EXCL|O_WRONLY, 0644)) {
             $fh->print($keyAuthorization);
-            $fh->close() or die "Can't close: $!";
+            $fh->close() or die "close: $!";
         } elsif ($! == EEXIST) {
             print STDERR "WARNING: File exists: $challenge->{token}\n";
         } else {
-            die "Can't open $challenge->{token}: $!";
+            die "open($challenge->{token}): $!";
         }
         my $r = acme($challenge->{url}, {});
         request_json_decode($r);
@@ -378,7 +378,7 @@ elsif ($COMMAND eq 'newOrder') {
 elsif ($COMMAND eq 'revokeCert') {
     die if @ARGV;
     my $der = do { local $/ = undef; <STDIN> };
-    close STDIN or die "Can't close: $!";
+    close STDIN or die "close: $!";
 
     # send a KID if the request is signed with the acccount key, otherwise send a JWK
     set_kid(0);
-- 
cgit v1.2.3