Expand licensecheck.pl for public domain

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 553 matching lines @@
     }
 
     if ($licensetext =~ /under the terms of the CeCILL-([^ ]+) /) {
         $license = "CeCILL-$1 $license";
     }
 
     if ($licensetext =~ /under the SGI Free Software (B License|License B)/) {
         $license = "SGI Free Software License B $license";
     }
 
-    if ($licensetext =~ /in the public domain/i) {
+    if ($licensetext =~ /(in|into) the public domain/i) {
         $license = "Public domain $license";
     }
 
     if ($licensetext =~ /terms of the Common Development and Distribution License(, Version ([^(]+))? \(the License\)/) {
         $license = "CDDL " . ($1 ? "(v$2) " : '') . $license;
     }
 
     if ($licensetext =~ /Microsoft Permissive License \(Ms-PL\)/) {
         $license = "Ms-PL $license";
     }
@@ skipping 49 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;
 }