diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/utf8_heavy.pl')
| -rw-r--r-- | Master/tlpkg/tlperl/lib/utf8_heavy.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Master/tlpkg/tlperl/lib/utf8_heavy.pl b/Master/tlpkg/tlperl/lib/utf8_heavy.pl index 23e06f9a9ac..fc422835abc 100644 --- a/Master/tlpkg/tlperl/lib/utf8_heavy.pl +++ b/Master/tlpkg/tlperl/lib/utf8_heavy.pl @@ -1,6 +1,8 @@ package utf8; use strict; use warnings; +use re "/aa"; # So we won't even try to look at above Latin1, potentially + # resulting in a recursive call sub DEBUG () { 0 } $|=1 if DEBUG; @@ -244,7 +246,7 @@ sub _loose_name ($) { # minus # Remove underscores between digits. - $part =~ s/( ?<= [0-9] ) _ (?= [0-9] ) //xg; + $part =~ s/(?<= [0-9] ) _ (?= [0-9] ) //xg; # No leading zeros (but don't make a single '0' # into a null string) |