--- Module-ScanDeps-1.05/lib/Module/ScanDeps.pm	2011-11-02 19:01:24.000000000 +0100
+++ Module-ScanDeps-next/lib/Module/ScanDeps.pm	2011-11-07 10:54:01.000000000 +0100
@@ -506,7 +506,8 @@
     'utf8.pm' => sub {
         # Perl 5.6.x: "unicode", Perl 5.8.x and up: "unicore"
         my $unicore = _find_in_inc('unicore/Name.pl') ? 'unicore' : 'unicode';
-        return ('utf8_heavy.pl', map "$unicore/$_->{name}", _glob_in_inc($unicore));
+        return ('utf8_heavy.pl', 
+                grep !/^$unicore\/mktables/, map "$unicore/$_->{name}", _glob_in_inc($unicore, 0));
     },
     'charnames.pm' => sub {
         _find_in_inc('unicore/Name.pl') ? 'unicore/Name.pl' : 'unicode/Name.pl'