ICU-3666 cloak stuff that isn't CVS keywords; add copyright
X-SVN-Rev: 15554
This commit is contained in:
parent
6bffa732bc
commit
4a7cca34fc
@ -11,6 +11,10 @@ goto endofperl
|
||||
@rem ';
|
||||
#!perl
|
||||
#line 14
|
||||
# ************************************************************************
|
||||
# Copyright (C) 2000-2004, International Business Machines Corporation and
|
||||
# others. All Rights Reserved.
|
||||
# ************************************************************************
|
||||
|
||||
# This perl script creates ICU transliterator data files, that live
|
||||
# in icu/data, from ICU4J UTF8 transliterator data files, in
|
||||
@ -254,10 +258,8 @@ translit_index {
|
||||
END
|
||||
|
||||
while (<JAVA_INDEX>) {
|
||||
# ignore $Source $Revision $Date CVS keyword substitutions
|
||||
next if /\$Source/ ;
|
||||
next if /\$Revision/ ;
|
||||
next if /\$Date/ ;
|
||||
# ignore CVS keyword substitutions
|
||||
next if /[$](Source|Revision|Date)/;
|
||||
|
||||
# we have printed out the copyright info ... ignore one in Java version
|
||||
next if /Copyright/ ;
|
||||
@ -368,10 +370,8 @@ sub file {
|
||||
# and taking other text and enclosing it in double quotes
|
||||
while (<IN>) {
|
||||
my $raw = $_;
|
||||
# ignore $Source $Revision $Date CVS keyword substitutions
|
||||
next if /\$Source/ ;
|
||||
next if /\$Revision/ ;
|
||||
next if /\$Date/ ;
|
||||
# ignore CVS keyword substitutions
|
||||
next if /[$](Source|Revision|Date)/;
|
||||
|
||||
# we have printed out the copyright info ... ignore one in Java version
|
||||
next if /Copyright/ ;
|
||||
|
Loading…
Reference in New Issue
Block a user