font: remove useless code (and warning) in mkfontinfo

diff --git a/tools/mkfontinfo b/tools/mkfontinfo
index a6dc15a8756773279dcfaf3cf9e844dcfc42ff8e..f5b503c53071d9ffcc3586cef4dc85bb4baa2adb 100755 (executable)
--- a/tools/mkfontinfo
+++ b/tools/mkfontinfo
@@ -23,9 +23,6 @@ for my $fontfile (glob 'ttfsupport/*'.$incsuffix) {
        };
 }
 
-       when (qr{^[a-z]+(?:/|\z)}) {
-       }
-
 my %charlist;
 
 my $chartables = do 'unicode-table.inc.pl' or warn $@ || $!;