mirror of
https://gitlab.isc.org/isc-projects/bind9
synced 2025-09-03 16:15:27 +00:00
temporarily disable until updated to support non-C comments
This commit is contained in:
@@ -1,5 +1,7 @@
|
|||||||
#!/usr/local/bin/perl -w
|
#!/usr/local/bin/perl -w
|
||||||
|
|
||||||
|
die "This program is being updated; talk to Bob.";
|
||||||
|
|
||||||
if (@ARGV == 0) {
|
if (@ARGV == 0) {
|
||||||
die "usage: update_copyrights <copyright_text>";
|
die "usage: update_copyrights <copyright_text>";
|
||||||
}
|
}
|
||||||
@@ -9,21 +11,22 @@ open(COPYRIGHT, "<$ARGV[0]") || die "can't open $ARGV[0]: $!";
|
|||||||
close(COPYRIGHT);
|
close(COPYRIGHT);
|
||||||
|
|
||||||
while (<>) {
|
while (<>) {
|
||||||
($file, $years_list) = split(/\s+/);
|
($file, $type, $years_list) = split(/\s+/);
|
||||||
@years = split(/,/, $years_list);
|
@years = split(/,/, $years_list);
|
||||||
|
|
||||||
if ( ! -f $file ) {
|
if ( ! -f $file ) {
|
||||||
print "$file: missing\n";
|
print "$file: missing\n";
|
||||||
}
|
}
|
||||||
if ($years_list eq "SKIP") {
|
if ($type eq "X") {
|
||||||
print "$file: SKIP\n";
|
print "$file: X type; skipping\n";
|
||||||
next;
|
next;
|
||||||
}
|
}
|
||||||
|
|
||||||
if ($file =~ /\.[chy]$/) {
|
if ($type eq "C") {
|
||||||
$c_comment = 1;
|
$c_comment = 1;
|
||||||
} else {
|
} else {
|
||||||
die "only C comments are supported right now";
|
print "$file: type '$type' not supported yet; skipping\n";
|
||||||
|
next;
|
||||||
}
|
}
|
||||||
open(SOURCE, "<$file") || die "can't open $file: $!";
|
open(SOURCE, "<$file") || die "can't open $file: $!";
|
||||||
$_ = <SOURCE>;
|
$_ = <SOURCE>;
|
||||||
|
Reference in New Issue
Block a user