Normalize simple exception messages

diff --git a/gatekeeper.pl b/gatekeeper.pl
index b99caf5e94de9fae5c820f16ec0ae6ea4b66295f..8e83ecbeebe15ecd302e1fdee914bb6047872c23 100755 (executable)
--- 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;
 }