diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/unicore/mktables | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index de97363f91..8cb5f0fc7f 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -19880,7 +19880,7 @@ sub _test_break($$) { } print " correctly matched $should_display[$i]; line $line\n"; } else { - $matches[$i] = join("", map { sprintf "\\x{%04X}", $_ } + $matches[$i] = join("", map { sprintf "\\x{%04X}", ord $_ } split "", $matches[$i]); print "not ok $Tests - In \"$display_string\" =~ /(\\X)/g, \\X #", $i + 1, |