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 625 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
636 $license = "FreeType (BSD like) $license"; | 636 $license = "FreeType (BSD like) $license"; |
637 } | 637 } |
638 if ($licensetext =~ /This software, and all works of authorship, whether in
source or object code form as indicated by the copyright notice.*is made availab
le, and may only be used, modified, and distributed under the FreeType Project L
icense, LICENSE\.TXT\. Additionally, subject to the terms and conditions of the
FreeType Project License, each contributor to the Work hereby grants to any indi
vidual or legal entity exercising permissions granted by the FreeType Project Li
cense and this section.*a perpetual, worldwide, non-exclusive, no-charge, royalt
y-free, irrevocable.*patent license to make/) { | 638 if ($licensetext =~ /This software, and all works of authorship, whether in
source or object code form as indicated by the copyright notice.*is made availab
le, and may only be used, modified, and distributed under the FreeType Project L
icense, LICENSE\.TXT\. Additionally, subject to the terms and conditions of the
FreeType Project License, each contributor to the Work hereby grants to any indi
vidual or legal entity exercising permissions granted by the FreeType Project Li
cense and this section.*a perpetual, worldwide, non-exclusive, no-charge, royalt
y-free, irrevocable.*patent license to make/) { |
639 $license = "FreeType (BSD like) with patent clause $license"; | 639 $license = "FreeType (BSD like) with patent clause $license"; |
640 } | 640 } |
641 | 641 |
642 if ($licensetext =~ /Anti-Grain Geometry.*Permission to copy, use, modify, s
ell and distribute this software is granted provided this copyright notice appea
rs in all copies. This software is provided as is without express or impl/) { | 642 if ($licensetext =~ /Anti-Grain Geometry.*Permission to copy, use, modify, s
ell and distribute this software is granted provided this copyright notice appea
rs in all copies. This software is provided as is without express or impl/) { |
643 $license = "Anti-Grain Geometry $license"; | 643 $license = "Anti-Grain Geometry $license"; |
644 } | 644 } |
645 | 645 |
| 646 if ($licensetext =~ /Developed at SunSoft, a Sun Microsystems, Inc\. busines
s\. Permission to use, copy, modify, and distribute this software is freely gran
ted, provided that this notice is preserved\./) { |
| 647 $license = "SunSoft (BSD like) $license"; |
| 648 } |
| 649 |
646 $license = "UNKNOWN" unless $license; | 650 $license = "UNKNOWN" unless $license; |
647 | 651 |
648 # Remove trailing spaces. | 652 # Remove trailing spaces. |
649 $license =~ s/\s+$//; | 653 $license =~ s/\s+$//; |
650 | 654 |
651 return $license; | 655 return $license; |
652 } | 656 } |
653 | 657 |
654 sub fatal($) { | 658 sub fatal($) { |
655 my ($pack,$file,$line); | 659 my ($pack,$file,$line); |
656 ($pack,$file,$line) = caller(); | 660 ($pack,$file,$line) = caller(); |
657 (my $msg = "$progname: fatal error at line $line:\n@_\n") =~ tr/\0//d; | 661 (my $msg = "$progname: fatal error at line $line:\n@_\n") =~ tr/\0//d; |
658 $msg =~ s/\n\n$/\n/; | 662 $msg =~ s/\n\n$/\n/; |
659 die $msg; | 663 die $msg; |
660 } | 664 } |
OLD | NEW |