From: Norbert Runge Date: Fri, 30 Sep 2016 23:18:16 +0000 (+0000) Subject: ICU-12768 updates regular expression in copyright scanning script; now scans for... X-Git-Tag: milestone-59-0-1~88 X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=51cc9568fc00bec96910fc59892f234a36b03281;p=icu ICU-12768 updates regular expression in copyright scanning script; now scans for Unicoe copyright statement. X-SVN-Rev: 39410 --- diff --git a/tools/scripts/cpysearch/cpyscan.pl b/tools/scripts/cpysearch/cpyscan.pl index deb7506ef78..5e22756bfb1 100755 --- 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 } ; + my $result = any { $_ =~ /(Copyright|©).*Unicode/i } ; + close F; print "$_\n" unless $result;