diff -rupN devscripts-2.15.5/scripts/licensecheck.pl devscripts-2.15.5-new/scripts/licensecheck.pl

--- devscripts-2.15.5/scripts/licensecheck.pl	2015-06-11 05:14:09.000000000 +0200

+++ devscripts-2.15.5-new/scripts/licensecheck.pl	2015-07-09 19:49:18.917819318 +0200

@@ -321,13 +321,15 @@ while (@files) {

     my %copyrights;

     # Encode::Guess does not work well, use good old file command to get file encoding

-    my $mime = `file -bi $file`;

+    my $mime = `file --brief --mime --dereference $file`;

     my $charset ;

-    if ($mime =~ /charset=([\w-]+)/) {

-        $charset = $1;

+    if ($mime =~ m!text/\w+; charset=([\w-]+)!) {

+	$charset = $1;

     }

     else {

-        die "can't find charset of $file\n";

+	chomp $mime;

+	warn "$0 warning: cannot parse file '$file' with mime type '$mime'\n";

+	next;

     }

     open (my $F, '<' ,$file) or die "Unable to access $file\n";