X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=bin%2Fbind.export;h=943aefbb06d21650d1343f6f715004f86775f781;hb=1a7b34a94745208217187050c1daec5bb31b7eb7;hp=7d1452dc615c0c1faaed3db892adbd3eeb749c5f;hpb=c189704fb7f1c2dce5362b5210fa957e274b3f55;p=freeside.git diff --git a/bin/bind.export b/bin/bind.export index 7d1452dc6..943aefbb0 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 () { 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 () { print NAMED_CONF $_; } close CONF_HEADER;