269     my ($bind_dir, $conf_dir) = @_;

   269     my ($bind_dir, $conf_dir) = @_;

   270 

   270 

   271     open(TO, ">$bind_dir/named.conf.zones")

   271     open(TO, ">$bind_dir/named.conf.zones")

   272       or die "$bind_dir/named.conf.zones: $!\n";

   272       or die "$bind_dir/named.conf.zones: $!\n";

   273     while (<$conf_dir/*>) {

   273     while (<$conf_dir/*>) {

   274         open(FROM, "$_") or die "$_: $! \n";

   275         open(FROM, "$_") or die "$_: $! \n";

   275         print TO <FROM>;

   276         print TO <FROM>;

   276         close(FROM);

   277         close(FROM);

   277     }

   278     }

   278     close(TO);

   279     close(TO);