From: ivan <ivan>
Date: Sun, 8 Sep 2002 12:40:31 +0000 (+0000)
Subject: error out if can't open .HEADER files
X-Git-Tag: freeside_1_5_0pre1~258
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=0b62b95185b28bfb2a4eec5639abb2a7d1207ffe

error out if can't open .HEADER files
---

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;