mirror of
https://gitlab.isc.org/isc-projects/bind9
synced 2025-08-29 13:38:26 +00:00
add TCL comment type
This commit is contained in:
parent
6a9f7f6e51
commit
abfb7fe67f
@ -15,7 +15,7 @@
|
|||||||
# NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION
|
# NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION
|
||||||
# WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
# WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||||||
|
|
||||||
# $Id: update_copyrights,v 1.20 2000/10/17 19:28:51 gson Exp $
|
# $Id: update_copyrights,v 1.21 2000/11/18 01:25:27 gson Exp $
|
||||||
|
|
||||||
require 5.002;
|
require 5.002;
|
||||||
|
|
||||||
@ -79,7 +79,7 @@ while (<>) {
|
|||||||
$start_comment = "/*\n";
|
$start_comment = "/*\n";
|
||||||
$prefix = " * ";
|
$prefix = " * ";
|
||||||
$end_comment = " */\n";
|
$end_comment = " */\n";
|
||||||
} elsif ($type =~ /^(SH|PERL|MAKE|CONF-SH)$/) {
|
} elsif ($type =~ /^(SH|PERL|TCL|MAKE|CONF-SH)$/) {
|
||||||
$shell_comment = 1;
|
$shell_comment = 1;
|
||||||
$prefix = "# ";
|
$prefix = "# ";
|
||||||
} elsif ($type eq "ZONE") {
|
} elsif ($type eq "ZONE") {
|
||||||
|
Loading…
x
Reference in New Issue
Block a user