diff options
| author | ivan <ivan> | 2002-09-08 12:40:31 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-09-08 12:40:31 +0000 |
| commit | 0b62b95185b28bfb2a4eec5639abb2a7d1207ffe (patch) | |
| tree | 1d7db7d6cedd7d62b74d27892d71008832a36592 | |
| parent | d710375eb3f0341d124a43919687817f5ee35d68 (diff) | |
error out if can't open .HEADER files
| -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; |