From: Jacob Bachmeyer <jcb@gnu.org>
Date: Sat, 5 Nov 2022 21:52:52 +0000 (-0500)
Subject: Normalize simple exception messages
X-Git-Url: https://vcs.fsf.org/?a=commitdiff_plain;h=07fadaf3d73573c0aed716698e4235d1871f4542;p=gatekeeper.git

Normalize simple exception messages
---

diff --git a/gatekeeper.pl b/gatekeeper.pl
index b99caf5..8e83ecb 100755
--- a/gatekeeper.pl
+++ b/gatekeeper.pl
@@ -716,7 +716,7 @@ sub slurp_clearsigned_message {
   # Note that the loops below preserve line endings.
 
   open my $handle, '<', $filename
-    or die "open($filename) failed: $!";
+    or die "open($filename): $!";
   # First, we find the PGP signature headers.
   while (<$handle>) {
     last if m/^-----BEGIN PGP SIGNED MESSAGE-----\s*\r*\n$/;
@@ -737,7 +737,7 @@ sub slurp_clearsigned_message {
     last if m/^-----END PGP SIGNATURE-----\s*\r*\n$/;
   }
   close $handle
-    or die "close($filename) failed: $!";
+    or die "close($filename): $!";
 
   return join('', @lines);
 }
@@ -1435,10 +1435,10 @@ sub read_directive_from_file {
   my $filename = shift;
 
   open my $handle, '<', $filename
-    or die "open($filename) failed: $!";
+    or die "open($filename): $!";
   my $records = read_directive($handle);
   close $handle
-    or die "close($filename) failed: $!";
+    or die "close($filename): $!";
 
   return $records;
 }
@@ -1458,10 +1458,10 @@ sub read_directive_from_string {
   my $text = shift;
 
   open my $handle, '<', \$text
-    or die "open memory file failed: $!";
+    or die "open memory file: $!";
   my $records = read_directive($handle);
   close $handle
-    or die "close memory file failed: $!";
+    or die "close memory file: $!";
 
   return $records;
 }