diff options
| author | Karl Williamson <khw@cpan.org> | 2014-11-14 10:08:35 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2014-11-24 13:48:07 -0700 |
| commit | 8cf6707da9e10cde056cb4e94fabe8d1cf7133b1 (patch) | |
| tree | 5cadb7def76da9dc8fdb7adc441e5b2ab75c7fa7 /lib/Unicode | |
| parent | c7d255944c0b238f9cec18e728822535d42a9ed2 (diff) | |
| download | perl-8cf6707da9e10cde056cb4e94fabe8d1cf7133b1.tar.gz | |
lib/Unicode/UCD.t: Add missing arg to failure sprintf
This wasn't spotted before because the test never failed.
Diffstat (limited to 'lib/Unicode')
| -rw-r--r-- | lib/Unicode/UCD.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t index bc07795d64..37c8bd2cb8 100644 --- a/lib/Unicode/UCD.t +++ b/lib/Unicode/UCD.t @@ -1749,7 +1749,8 @@ foreach my $prop (sort(keys %props), sort keys %legacy_props) { my $packed = pack "U*", @{$invmap_ref->[$i]}; if ($value ne $packed) { fail("prop_invmap('$display_prop')"); - diag(sprintf "For %04X, expected the mapping to be '$packed', but got '$value'"); + diag(sprintf "For %04X, expected the mapping to be " + . "'$packed', but got '$value'", $invlist_ref->[$i]); next PROPERTY; } |