diff options
| -rwxr-xr-x | bin/bind.export | 6 |
1 files 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; |