(get_headers): Check errors on open.

diff --git a/minc b/minc
index e0c5c7331d0155ca134c3eb4d78713f236aeb638..d008d663dd4030b534043f421cd40fd6737a5284 100755 (executable)
--- a/minc
+++ b/minc
@@ -432,7 +432,7 @@ sub get_headers {
     my $fieldname;              # unmolested header name
     my $contents;               # contents of header
 
     my $fieldname;              # unmolested header name
     my $contents;               # contents of header
 

-    open(MSG, $msg);
+    open(MSG, $msg) or die("open(MSG, $msg): $!");

     while (<MSG>) {
         chomp;
         if (length == 0) {
     while (<MSG>) {
         chomp;
         if (length == 0) {