From 07fadaf3d73573c0aed716698e4235d1871f4542 Mon Sep 17 00:00:00 2001
From: Jacob Bachmeyer <jcb@gnu.org>
Date: Sat, 5 Nov 2022 16:52:52 -0500
Subject: [PATCH] Normalize simple exception messages

---
 gatekeeper.pl | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

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;
 }
-- 
2.25.1