diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/_charnames.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/_charnames.pm b/lib/_charnames.pm index 7f2e5f76c3..4a8aa42aac 100644 --- 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 { |