From 0b62b95185b28bfb2a4eec5639abb2a7d1207ffe Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sun, 8 Sep 2002 12:40:31 +0000
Subject: [PATCH] error out if can't open .HEADER files

---
 bin/bind.export | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/bin/bind.export b/bin/bind.export
index 7d1452dc6..63fb0f60c 100755
--- a/bin/bind.export
+++ b/bin/bind.export
@@ -38,7 +38,8 @@ foreach my $export ( @exports ) {
   open(NAMED_CONF,">$prefix/named.conf")
     or die "can't open $prefix/named.conf: $!";
 
-  open(CONF_HEADER,"<$prefix/named.conf.HEADER"); #or die
+  open(CONF_HEADER,"<$prefix/named.conf.HEADER")
+    or die "can't open $prefix/named.conf.HEADER: $!"
   while (<CONF_HEADER>) { print NAMED_CONF $_; }
   close CONF_HEADER;
 
@@ -137,7 +138,8 @@ foreach my $sexport ( @sexports ) { #false laziness with above
   open(NAMED_CONF,">$prefix/named.conf")
     or die "can't open $prefix/named.conf: $!";
 
-  open(CONF_HEADER,"<$prefix/named.conf.HEADER"); #or die
+  open(CONF_HEADER,"<$prefix/named.conf.HEADER")
+    or die "can't open $prefix/named.conf.HEADER: $!"
   while (<CONF_HEADER>) { print NAMED_CONF $_; }
   close CONF_HEADER;
 
-- 
2.11.0