Support dual licensing under MIT and the University of Illinois/NCSA

third_party/devscripts/licensecheck.pl

 #!/usr/bin/perl -w
 # This script was originally based on the script of the same name from
 # the KDE SDK (by dfaure@kde.org)
 #
 # This version is
 #   Copyright (C) 2007, 2008 Adam D. Barratt
 #   Copyright (C) 2012 Francesco Poli
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ skipping 474 matching lines @@
         $license = "QPL $license";
     }
 
     if ($licensetext =~ /opensource\.org\/licenses\/mit/) {
         $license = "MIT/X11 (BSD like) $license";
     } elsif ($licensetext =~ /Permission is hereby granted, free of charge, to any person obtaining a copy of this software and(\/or)? associated documentation files \(the (Software|Materials)\), to deal in the (Software|Materials)/) {
         $license = "MIT/X11 (BSD like) $license";
     } elsif ($licensetext =~ /Permission is hereby granted, without written agreement and without license or royalty fees, to use, copy, modify, and distribute this software and its documentation for any purpose/) {
         $license = "MIT/X11 (BSD like) $license";
     }
+    if ($licensetext  =~ /MIT .* License/){
+        $license = "MIT $license";

[Paweł Hajdan Jr., 2013/12/20 08:51:09]

Let's do elsif here, and output "MIT/X11 (BSD like)" instead of just "MIT" for
consistency.

+    }
 
-    if ($licensetext  =~ /This file is distributed under the University of Illinois Open Source License/){
+    if ($licensetext  =~ /the University of Illinois Open Source License/){
         $license = "University of Illinois/NCSA Open Source License (BSD like) $license";
     }
 
     if ($licensetext  =~ /Permission to use, copy, modify, and(\/or)? distribute this software (and its documentation )?for any purpose (with or )?without fee is hereby granted, provided.*(copyright|entire) notice.*all copies/i) {
         $license = "ISC $license";
     }
 
     if ($licensetext =~ /THIS SOFTWARE IS PROVIDED .*AS IS AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY/ ||
         $licensetext =~ /THE SOFTWARE IS PROVIDED AS IS, WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABIL- ITY/) {
         if ($licensetext =~ /All advertising materials mentioning features or use of this software must display the following/) {
@@ skipping 123 matching lines @@
     return $license;
 }
 
 sub fatal($) {
     my ($pack,$file,$line);
     ($pack,$file,$line) = caller();
     (my $msg = "$progname: fatal error at line $line:\n@_\n") =~ tr/\0//d;
     $msg =~ s/\n\n$/\n/;
     die $msg;
 }