| 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 531 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 542 return $license; | 542 return $license; |
| 543 } | 543 } |
| 544 | 544 |
| 545 sub fatal($) { | 545 sub fatal($) { |
| 546 my ($pack,$file,$line); | 546 my ($pack,$file,$line); |
| 547 ($pack,$file,$line) = caller(); | 547 ($pack,$file,$line) = caller(); |
| 548 (my $msg = "$progname: fatal error at line $line:\n@_\n") =~ tr/\0//d; | 548 (my $msg = "$progname: fatal error at line $line:\n@_\n") =~ tr/\0//d; |
| 549 $msg =~ s/\n\n$/\n/; | 549 $msg =~ s/\n\n$/\n/; |
| 550 die $msg; | 550 die $msg; |
| 551 } | 551 } |
| OLD | NEW |
|---|
Chromium Code Reviews
Issue 9180001:
Rename licensecheck.pl.orig to licensecheck.pl.canonical to avoid confusion with .orig files gene... (Closed)
Base URL: svn://chrome-svn/chrome/trunk/src/