Chromium Code Reviews
chromiumcodereview-hr@appspot.gserviceaccount.com (chromiumcodereview-hr) | Please choose your nickname with Settings | Help | Chromium Project | Gerrit Changes | Sign out
(362)

Side by Side Diff: third_party/devscripts/licensecheck.pl.vanilla

Issue 10453077: Update licensecheck.pl to version 2.11.7 (Closed) Base URL: svn://svn.chromium.org/chrome/trunk/src/
Patch Set: Created 8 years, 6 months ago
Use n/p to move between diff chunks; N/P to move between comments. Draft comments are only viewable by you.
Jump to:
View unified diff | Download patch | Annotate | Revision Log
« no previous file with comments | « third_party/devscripts/licensecheck.pl ('k') | tools/checklicenses/checklicenses.py » ('j') | no next file with comments »
Toggle Intra-line Diffs ('i') | Expand Comments ('e') | Collapse Comments ('c') | Show Comments Hide Comments ('s')
OLDNEW
1 #!/usr/bin/perl -w 1 #!/usr/bin/perl -w
2 # This script was originally based on the script of the same name from 2 # This script was originally based on the script of the same name from
3 # the KDE SDK (by dfaure@kde.org) 3 # the KDE SDK (by dfaure@kde.org)
4 # 4 #
5 # This version is 5 # This version is
6 # Copyright (C) 2007, 2008 Adam D. Barratt 6 # Copyright (C) 2007, 2008 Adam D. Barratt
7 # 7 #
8 # This program is free software; you can redistribute it and/or modify 8 # This program is free software; you can redistribute it and/or modify
9 # it under the terms of the GNU General Public License as published by 9 # it under the terms of the GNU General Public License as published by
10 # the Free Software Foundation; either version 2 of the License, or 10 # the Free Software Foundation; either version 2 of the License, or
(...skipping 374 matching lines...) Expand 10 before | Expand all | Expand 10 after
385 my ($licensetext) = @_; 385 my ($licensetext) = @_;
386 386
387 my $gplver = ""; 387 my $gplver = "";
388 my $extrainfo = ""; 388 my $extrainfo = "";
389 my $license = ""; 389 my $license = "";
390 390
391 if ($licensetext =~ /version ([^ ]+) (?:\(?only\)?.? )?(?:of the GNU (Affero )?General Public License )?as published by the Free Software Foundation/i or 391 if ($licensetext =~ /version ([^ ]+) (?:\(?only\)?.? )?(?:of the GNU (Affero )?General Public License )?as published by the Free Software Foundation/i or
392 $licensetext =~ /GNU (?:Affero )?General Public License as published by the Free Software Foundation; version ([^ ]+) /i) { 392 $licensetext =~ /GNU (?:Affero )?General Public License as published by the Free Software Foundation; version ([^ ]+) /i) {
393 393
394 $gplver = " (v$1)"; 394 $gplver = " (v$1)";
395 } elsif ($licensetext =~ /GNU (Affero ?)General Public License, version ([^ ]+?)[ .]/) { 395 } elsif ($licensetext =~ /GNU (?:Affero ?)General Public License, version ([ ^ ]+?)[ .]/) {
396 $gplver = " (v$1)"; 396 $gplver = " (v$1)";
397 } elsif ($licensetext =~ /either version ([^ ]+) of the License, or \(at you r option\) any later version/) { 397 } elsif ($licensetext =~ /either version ([^ ]+)(?: of the License)?, or \(a t your option\) any later version/) {
398 $gplver = " (v$1 or later)"; 398 $gplver = " (v$1 or later)";
399 } 399 }
400 400
401 if ($licensetext =~ /(?:675 Mass Ave|59 Temple Place|51 Franklin Steet|02139 |02111-1307)/i) { 401 if ($licensetext =~ /(?:675 Mass Ave|59 Temple Place|51 Franklin Steet|02139 |02111-1307)/i) {
402 $extrainfo = " (with incorrect FSF address)$extrainfo"; 402 $extrainfo = " (with incorrect FSF address)$extrainfo";
403 } 403 }
404 404
405 if ($licensetext =~ /permission (?:is (also granted|given))? to link (the co de of )?this program with (any edition of )?(Qt|the Qt library)/i) { 405 if ($licensetext =~ /permission (?:is (also granted|given))? to link (the co de of )?this program with (any edition of )?(Qt|the Qt library)/i) {
406 $extrainfo = " (with Qt exception)$extrainfo" 406 $extrainfo = " (with Qt exception)$extrainfo"
407 } 407 }
(...skipping 134 matching lines...) Expand 10 before | Expand all | Expand 10 after
542 return $license; 542 return $license;
543 } 543 }
544 544
545 sub fatal($) { 545 sub fatal($) {
546 my ($pack,$file,$line); 546 my ($pack,$file,$line);
547 ($pack,$file,$line) = caller(); 547 ($pack,$file,$line) = caller();
548 (my $msg = "$progname: fatal error at line $line:\n@_\n") =~ tr/\0//d; 548 (my $msg = "$progname: fatal error at line $line:\n@_\n") =~ tr/\0//d;
549 $msg =~ s/\n\n$/\n/; 549 $msg =~ s/\n\n$/\n/;
550 die $msg; 550 die $msg;
551 } 551 }
OLDNEW
« no previous file with comments | « third_party/devscripts/licensecheck.pl ('k') | tools/checklicenses/checklicenses.py » ('j') | no next file with comments »

Powered by Google App Engine
This is Rietveld 408576698