equal
deleted
inserted
replaced
496 my $dir = "$config{master_dir}/$zone"; |
496 my $dir = "$config{master_dir}/$zone"; |
497 |
497 |
498 my $in = IO::File->new("$dir/$zone") or die "Can't open $dir/$zone: $!\n"; |
498 my $in = IO::File->new("$dir/$zone") or die "Can't open $dir/$zone: $!\n"; |
499 my $out = File::Temp->new(DIR => $dir) or die "Can't open tmpfile: $!\n"; |
499 my $out = File::Temp->new(DIR => $dir) or die "Can't open tmpfile: $!\n"; |
500 |
500 |
501 print $out grep { !/\$include\s+.*key/i } $in; |
501 print $out grep { !/\$include\s+.*key/i } <$in>; |
502 print $out map { "\$INCLUDE @{[basename $_]}\n" } glob "$dir/K*key"; |
502 print $out map { "\$INCLUDE @{[basename $_]}\n" } glob "$dir/K*key"; |
503 |
503 |
504 close $in; |
504 close $in; |
505 close $out; |
505 close $out; |
506 rename($out->filename => "$dir/$zone") |
506 rename($out->filename => "$dir/$zone") |