error out if can't open .HEADER files

diff --git a/bin/bind.export b/bin/bind.export
index 7d1452d..63fb0f6 100755 (executable)
--- 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(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;
 
   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(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;
 
   while (<CONF_HEADER>) { print NAMED_CONF $_; }
   close CONF_HEADER;