From 6ca4964362ec37d6afbf614dbb9aaa2f525002f1 Mon Sep 17 00:00:00 2001 From: Mark Andrews Date: Fri, 5 Mar 2004 12:39:24 +0000 Subject: [PATCH] make $keyword_pat match -kk forms in addition to non -kk forms. --- util/update_copyrights | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/util/update_copyrights b/util/update_copyrights index 1aaaf71f54..0771890bb6 100644 --- a/util/update_copyrights +++ b/util/update_copyrights @@ -15,7 +15,7 @@ # OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR # PERFORMANCE OF THIS SOFTWARE. -# $Id: update_copyrights,v 1.30 2004/03/05 11:13:47 marka Exp $ +# $Id: update_copyrights,v 1.31 2004/03/05 12:39:24 marka Exp $ require 5.002; @@ -37,7 +37,7 @@ my %owner2filename = ( my %owner2text = (); -my $keyword_pat = '\$(Id|Revision):.*\$'; +my $keyword_pat = '\$(Id:.*|Revision:.*|Id|Revision)\$'; foreach $owner (keys %owner2filename) { my $f = $owner2filename{$owner}; @@ -358,7 +358,7 @@ while (<>) { } if ($first !~ /$keyword_pat/ && $_ !~ /$keyword_pat/) { - $end = "\n$start" if ($type eq "MAN"); + $end = "\n$nonspaceprefix" if ($type eq "MAN"); print TARGET "$start\$"; print TARGET "Id"; print TARGET "\$$end\n";