Make the license tools recoginze the dual license

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
 #
 # 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
 # the Free Software Foundation; either version 2 of the License, or
@@ skipping 452 matching lines @@
     }
 
     if ($licensetext =~ /is free software under the Artistic [Ll]icense/) {
         $license = "Artistic $license";
     }
 
     if ($licensetext =~ /This program is free software; you can redistribute it and\/or modify it under the same terms as Perl itself/) {
         $license = "Perl $license";
     }
 
-    if ($licensetext =~ /under the Apache License, Version ([^ ]+)/) {
+    if ($licensetext =~ /under the terms of the Apache ([^ ]+) License OR version 2 of the GNU/) {
+        $license = "Apache (v$1) GPL (v2) $license";
+    } elsif ($licensetext =~ /under the Apache License, Version ([^ ]+)/) {
         $license = "Apache (v$1) $license";
     }
 
     if ($licensetext =~ /This source file is subject to version ([^ ]+) of the PHP license/) {
         $license = "PHP (v$1) $license";
     }
 
     if ($licensetext =~ /under the terms of the CeCILL /) {
         $license = "CeCILL $license";
     }
@@ skipping 39 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;
 }