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 # | 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 452 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
463 } | 463 } |
464 | 464 |
465 if ($licensetext =~ /is free software under the Artistic [Ll]icense/) { | 465 if ($licensetext =~ /is free software under the Artistic [Ll]icense/) { |
466 $license = "Artistic $license"; | 466 $license = "Artistic $license"; |
467 } | 467 } |
468 | 468 |
469 if ($licensetext =~ /This program is free software; you can redistribute it
and\/or modify it under the same terms as Perl itself/) { | 469 if ($licensetext =~ /This program is free software; you can redistribute it
and\/or modify it under the same terms as Perl itself/) { |
470 $license = "Perl $license"; | 470 $license = "Perl $license"; |
471 } | 471 } |
472 | 472 |
473 if ($licensetext =~ /under the Apache License, Version ([^ ]+)/) { | 473 if ($licensetext =~ /under the terms of the Apache ([^ ]+) License OR versio
n 2 of the GNU/) { |
| 474 » $license = "Apache (v$1) GPL (v2) $license"; |
| 475 } elsif ($licensetext =~ /under the Apache License, Version ([^ ]+)/) { |
474 $license = "Apache (v$1) $license"; | 476 $license = "Apache (v$1) $license"; |
475 } | 477 } |
476 | 478 |
477 if ($licensetext =~ /This source file is subject to version ([^ ]+) of the P
HP license/) { | 479 if ($licensetext =~ /This source file is subject to version ([^ ]+) of the P
HP license/) { |
478 $license = "PHP (v$1) $license"; | 480 $license = "PHP (v$1) $license"; |
479 } | 481 } |
480 | 482 |
481 if ($licensetext =~ /under the terms of the CeCILL /) { | 483 if ($licensetext =~ /under the terms of the CeCILL /) { |
482 $license = "CeCILL $license"; | 484 $license = "CeCILL $license"; |
483 } | 485 } |
(...skipping 39 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
523 return $license; | 525 return $license; |
524 } | 526 } |
525 | 527 |
526 sub fatal($) { | 528 sub fatal($) { |
527 my ($pack,$file,$line); | 529 my ($pack,$file,$line); |
528 ($pack,$file,$line) = caller(); | 530 ($pack,$file,$line) = caller(); |
529 (my $msg = "$progname: fatal error at line $line:\n@_\n") =~ tr/\0//d; | 531 (my $msg = "$progname: fatal error at line $line:\n@_\n") =~ tr/\0//d; |
530 $msg =~ s/\n\n$/\n/; | 532 $msg =~ s/\n\n$/\n/; |
531 die $msg; | 533 die $msg; |
532 } | 534 } |
OLD | NEW |