diff options
| author | Karl Williamson <khw@cpan.org> | 2016-01-18 23:01:07 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2016-01-19 15:08:59 -0700 |
| commit | 3571e9a754834338c4e5b8c1349920062570f2a0 (patch) | |
| tree | 728823410f57d3c9a8426f8a2a5c7bf1e8875295 /lib | |
| parent | 6b659339f976d014a1a53731d86cedd01f5921ec (diff) | |
| download | perl-3571e9a754834338c4e5b8c1349920062570f2a0.tar.gz | |
t/re/uniprops.t: Fix bug in diagnostic output
An 'ord' was missing, so a warnings was raised. This file is generated
by mktables
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, |