ICU-12768 updates regular expression in copyright scanning script; now scans for...

X-SVN-Rev: 39410

diff --git a/tools/scripts/cpysearch/cpyscan.pl b/tools/scripts/cpysearch/cpyscan.pl
index deb7506ef78820399b3ea2971ee5eb73c743abe6..5e22756bfb1dbe2f3b210a97baedda4762cab49d 100755 (executable)
--- a/tools/scripts/cpysearch/cpyscan.pl
+++ b/tools/scripts/cpysearch/cpyscan.pl
@@ -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;