charnames: Enforce better file name rules

The code says that identifier syntax is required for a file name, but
the code accepted any sequence of \w's.

diff --git a/lib/_charnames.pm b/lib/_charnames.pm
index 7f2e5f7..4a8aa42 100644 (file)
--- a/lib/_charnames.pm
+++ b/lib/_charnames.pm
@@ -214,7 +214,7 @@ sub alias_file ($)  # Reads a file containing alias definitions
   if (-f $arg && File::Spec->file_name_is_absolute ($arg)) {
     $file = $arg;
   }
-  elsif ($arg =~ m/^\w+$/) {
+  elsif ($arg =~ m/ ^ \p{_Perl_IDStart} \p{_Perl_IDCont}* $/x) {
     $file = "unicore/${arg}_alias.pl";
   }
   else {