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 520 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
531 } | 531 } |
532 | 532 |
533 if ($licensetext =~ /under MIT license/) { | 533 if ($licensetext =~ /under MIT license/) { |
534 $license = "MIT/X11 (BSD like) $license"; | 534 $license = "MIT/X11 (BSD like) $license"; |
535 } | 535 } |
536 | 536 |
537 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/) { | 537 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/) { |
538 $license = $license . "with Bison parser exception"; | 538 $license = $license . "with Bison parser exception"; |
539 } | 539 } |
540 | 540 |
| 541 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/) { |
| 542 $license = $license . "with libtool exception"; |
| 543 } |
| 544 |
541 $license = "UNKNOWN" if (!length($license)); | 545 $license = "UNKNOWN" if (!length($license)); |
542 | 546 |
543 return $license; | 547 return $license; |
544 } | 548 } |
545 | 549 |
546 sub fatal($) { | 550 sub fatal($) { |
547 my ($pack,$file,$line); | 551 my ($pack,$file,$line); |
548 ($pack,$file,$line) = caller(); | 552 ($pack,$file,$line) = caller(); |
549 (my $msg = "$progname: fatal error at line $line:\n@_\n") =~ tr/\0//d; | 553 (my $msg = "$progname: fatal error at line $line:\n@_\n") =~ tr/\0//d; |
550 $msg =~ s/\n\n$/\n/; | 554 $msg =~ s/\n\n$/\n/; |
551 die $msg; | 555 die $msg; |
552 } | 556 } |
OLD | NEW |