mir/bind
2
0
Fork 0
mirror of https://gitlab.isc.org/isc-projects/bind9 synced 2025-09-01 23:25:38 +00:00
Code Issues Releases Wiki Activity

be more tolerant of the copyright comment style used in the manual pages

Browse Source
This commit is contained in:
David Lawrence
2000-06-28 19:26:53 +00:00
parent 5eae30a019
commit d7e7a17b76
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
util/update_copyrights
View File

@@ -15,7 +15,7 @@
# ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS # ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
# SOFTWARE. # SOFTWARE.
# $Id: update_copyrights,v 1.14 2000/06/22 22:24:05 tale Exp $ # $Id: update_copyrights,v 1.15 2000/06/28 19:26:53 tale Exp $
require 5.002; require 5.002;
@@ -101,6 +101,9 @@ while (<>) {
print "$file: type '$type' not supported yet; skipping\n"; print "$file: type '$type' not supported yet; skipping\n";
next; next;
} }
($nonspaceprefix = $prefix) =~ s/\s+$//;
open(SOURCE, "<$file") || die "can't open $file: $!"; open(SOURCE, "<$file") || die "can't open $file: $!";
$_ = <SOURCE>; $_ = <SOURCE>;
if ($type eq "YACC") { if ($type eq "YACC") {
@@ -148,8 +151,7 @@ while (<>) {
$first = $_; $first = $_;
} }
} elsif (($m4_comment || $zone_comment || $man_comment) && } elsif (($m4_comment || $zone_comment || $man_comment) &&
/^\Q$prefix\E/) { /^\Q$nonspaceprefix\E/) {
($nonspaceprefix = $prefix) =~ s/\s+$//;
while (/^\Q$nonspaceprefix\E\s*$/) { while (/^\Q$nonspaceprefix\E\s*$/) {
$_ = <SOURCE>; $_ = <SOURCE>;
@@ -161,7 +163,7 @@ while (<>) {
next; next;
} }
while (<SOURCE>) { while (<SOURCE>) {
if ($_ !~ /^\Q$prefix\E/) { if ($_ !~ /^\Q$nonspaceprefix\E/) {
$first = $_; $first = $_;
last; last;
} }