mirror of
https://github.com/unicode-org/icu.git
synced 2025-04-13 08:53:20 +00:00
ICU-12768 updates regular expression in copyright scanning script; now scans for Unicoe copyright statement.
X-SVN-Rev: 39410
This commit is contained in:
parent
69c2fb3919
commit
51cc9568fc
1 changed files with 6 additions and 1 deletions
|
@ -1,5 +1,9 @@
|
|||
#!/usr/bin/perl -w
|
||||
# ***********************************************************************
|
||||
# * Copyright (C) 2016 and later: Unicode, Inc. and others.
|
||||
# * License & terms of use: http://www.unicode.org/copyright.html#License
|
||||
# ***********************************************************************
|
||||
# ***********************************************************************
|
||||
# * COPYRIGHT:
|
||||
# * Copyright (c) 2002-2011, International Business Machines Corporation
|
||||
# * and others. All Rights Reserved.
|
||||
|
@ -23,7 +27,8 @@ find({
|
|||
return if should_ignore($_);
|
||||
|
||||
open F, "<$_" or die "Error opening '$_'.";
|
||||
my $result = any { $_ =~ /copyright.*(international|ibm)/i } <F>;
|
||||
my $result = any { $_ =~ /(Copyright|©).*Unicode/i } <F>;
|
||||
|
||||
close F;
|
||||
|
||||
print "$_\n" unless $result;
|
||||
|
|
Loading…
Add table
Reference in a new issue