Chromium Code Reviews| OLD | NEW |
|---|---|
| 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 # Copyright (C) 2012 Francesco Poli | 7 # Copyright (C) 2012 Francesco Poli |
| 8 # | 8 # |
| 9 # This program is free software; you can redistribute it and/or modify | 9 # This program is free software; you can redistribute it and/or modify |
| 10 # it under the terms of the GNU General Public License as published by | 10 # it under the terms of the GNU General Public License as published by |
| (...skipping 473 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... | |
| 484 } elsif ($licensetext =~ /may be distributed under the terms of the Q Public License as defined/) { | 484 } elsif ($licensetext =~ /may be distributed under the terms of the Q Public License as defined/) { |
| 485 $license = "QPL $license"; | 485 $license = "QPL $license"; |
| 486 } | 486 } |
| 487 | 487 |
| 488 if ($licensetext =~ /opensource\.org\/licenses\/mit/) { | 488 if ($licensetext =~ /opensource\.org\/licenses\/mit/) { |
| 489 $license = "MIT/X11 (BSD like) $license"; | 489 $license = "MIT/X11 (BSD like) $license"; |
| 490 } elsif ($licensetext =~ /Permission is hereby granted, free of charge, to a ny person obtaining a copy of this software and(\/or)? associated documentation files \(the (Software|Materials)\), to deal in the (Software|Materials)/) { | 490 } elsif ($licensetext =~ /Permission is hereby granted, free of charge, to a ny person obtaining a copy of this software and(\/or)? associated documentation files \(the (Software|Materials)\), to deal in the (Software|Materials)/) { |
| 491 $license = "MIT/X11 (BSD like) $license"; | 491 $license = "MIT/X11 (BSD like) $license"; |
| 492 } elsif ($licensetext =~ /Permission is hereby granted, without written agre ement and without license or royalty fees, to use, copy, modify, and distribute this software and its documentation for any purpose/) { | 492 } elsif ($licensetext =~ /Permission is hereby granted, without written agre ement and without license or royalty fees, to use, copy, modify, and distribute this software and its documentation for any purpose/) { |
| 493 $license = "MIT/X11 (BSD like) $license"; | 493 $license = "MIT/X11 (BSD like) $license"; |
| 494 } elsif ($licensetext =~ /Permission to use, copy, modify, distribute, and s ell this software and its documentation for any purpose is hereby granted withou t fee/) { | |
| 495 $license = "MIT/X11 (BSD like) $license"; | |
|
Paweł Hajdan Jr.
2014/01/08 13:50:06
It's not obvious to me whether this is really MIT,
| |
| 494 } elsif ($licensetext =~ /MIT .* License/) { | 496 } elsif ($licensetext =~ /MIT .* License/) { |
| 495 $license = "MIT/X11 (BSD like) $license"; | 497 $license = "MIT/X11 (BSD like) $license"; |
| 496 } | 498 } |
| 497 | 499 |
| 498 if ($licensetext =~ /the University of Illinois Open Source License/){ | 500 if ($licensetext =~ /the University of Illinois Open Source License/){ |
| 499 $license = "University of Illinois/NCSA Open Source License (BSD like) $ license"; | 501 $license = "University of Illinois/NCSA Open Source License (BSD like) $ license"; |
| 500 } | 502 } |
| 501 | 503 |
| 502 if ($licensetext =~ /Permission to use, copy, modify, and(\/or)? distribute this software (and its documentation )?for any purpose (with or )?without fee i s hereby granted, provided.*(copyright|entire) notice.*all copies/i) { | 504 if ($licensetext =~ /Permission to use, copy, modify, and(\/or)? distribute this software (and its documentation )?for any purpose (with or )?without fee i s hereby granted, provided.*(copyright|entire) notice.*all copies/i) { |
| 503 $license = "ISC $license"; | 505 $license = "ISC $license"; |
| (...skipping 128 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... | |
| 632 return $license; | 634 return $license; |
| 633 } | 635 } |
| 634 | 636 |
| 635 sub fatal($) { | 637 sub fatal($) { |
| 636 my ($pack,$file,$line); | 638 my ($pack,$file,$line); |
| 637 ($pack,$file,$line) = caller(); | 639 ($pack,$file,$line) = caller(); |
| 638 (my $msg = "$progname: fatal error at line $line:\n@_\n") =~ tr/\0//d; | 640 (my $msg = "$progname: fatal error at line $line:\n@_\n") =~ tr/\0//d; |
| 639 $msg =~ s/\n\n$/\n/; | 641 $msg =~ s/\n\n$/\n/; |
| 640 die $msg; | 642 die $msg; |
| 641 } | 643 } |
| OLD | NEW |