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;
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;