diff options
| author | ivan <ivan> | 2002-09-08 12:40:29 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-09-08 12:40:29 +0000 |
| commit | 193cd94f73a0bdba62b612606bd5affb34f417aa (patch) | |
| tree | 645e87aaf7cb994d3eb47e17542cb48a4408b932 /bin | |
| parent | d35af6bf3827731fc639b975616b941d1e470183 (diff) | |
error out if can't open .HEADER files
Diffstat (limited to 'bin')
| -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; |