| 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 559 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 570 } | 570 } |
| 571 | 571 |
| 572 if ($licensetext =~ /As a special exception, you may create a larger work th
at contains part or all of the Bison parser skeleton and distribute that work un
der terms of your choice/) { | 572 if ($licensetext =~ /As a special exception, you may create a larger work th
at contains part or all of the Bison parser skeleton and distribute that work un
der terms of your choice/) { |
| 573 $license = $license . "with Bison parser exception"; | 573 $license = $license . "with Bison parser exception"; |
| 574 } | 574 } |
| 575 | 575 |
| 576 if ($licensetext =~ /As a special exception to the GNU General Public Licens
e, if you distribute this file as part of a program or library that is built usi
ng GNU Libtool, you may include this file under the same distribution terms that
you use for the rest of that program/) { | 576 if ($licensetext =~ /As a special exception to the GNU General Public Licens
e, if you distribute this file as part of a program or library that is built usi
ng GNU Libtool, you may include this file under the same distribution terms that
you use for the rest of that program/) { |
| 577 $license = $license . "with libtool exception"; | 577 $license = $license . "with libtool exception"; |
| 578 } | 578 } |
| 579 | 579 |
| 580 if ($licensetext =~ /These materials are protected by copyright laws and con
tain material proprietary to the Khronos Group, Inc\. You may use these material
s for implementing Khronos specifications, without altering or removing any trad
emark, copyright or other notice from the specification/) { |
| 581 $license = $license . "Khronos Group"; |
| 582 } |
| 583 |
| 580 $license = "UNKNOWN" if (!length($license)); | 584 $license = "UNKNOWN" if (!length($license)); |
| 581 | 585 |
| 582 # Remove trailing spaces. | 586 # Remove trailing spaces. |
| 583 $license =~ s/\s+$//; | 587 $license =~ s/\s+$//; |
| 584 | 588 |
| 585 return $license; | 589 return $license; |
| 586 } | 590 } |
| 587 | 591 |
| 588 sub fatal($) { | 592 sub fatal($) { |
| 589 my ($pack,$file,$line); | 593 my ($pack,$file,$line); |
| 590 ($pack,$file,$line) = caller(); | 594 ($pack,$file,$line) = caller(); |
| 591 (my $msg = "$progname: fatal error at line $line:\n@_\n") =~ tr/\0//d; | 595 (my $msg = "$progname: fatal error at line $line:\n@_\n") =~ tr/\0//d; |
| 592 $msg =~ s/\n\n$/\n/; | 596 $msg =~ s/\n\n$/\n/; |
| 593 die $msg; | 597 die $msg; |
| 594 } | 598 } |
| OLD | NEW |