diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-03-06 10:37:37 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-03-19 16:51:25 -0600 |
| commit | 294705a8c512970205c6ab76033cb59703476097 (patch) | |
| tree | 5bcb9659bbf4bac55e311a0b7bcd3249ce84a91e | |
| parent | 22bc5f56c4cdabb8df1b2acae33971781fb1814e (diff) | |
| download | perl-294705a8c512970205c6ab76033cb59703476097.tar.gz | |
Unicode::UCD: typos in error messages
These concatenated the package name with the beginning of the text with
no intervening punctuation. Add also the function within the package
| -rw-r--r-- | lib/Unicode/UCD.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/Unicode/UCD.pm b/lib/Unicode/UCD.pm index 20e060a295..221c1c4902 100644 --- a/lib/Unicode/UCD.pm +++ b/lib/Unicode/UCD.pm @@ -2864,7 +2864,7 @@ RETRY: else { # These should all single-element ranges. - croak __PACKAGE__, "Not expecting a mapping with multiple code points in a multi-element range, $ranges[$i]" if $hex_end ne ""; + croak __PACKAGE__, "::prop_invmap: Not expecting a mapping with multiple code points in a multi-element range, $ranges[$i]" if $hex_end ne ""; # Convert them to decimal, as that's what's expected. $list .= "$hex_begin\t\t" @@ -3058,7 +3058,7 @@ RETRY: # This is all we need do for this iteration. if ($end != $begin) { - croak __PACKAGE__, "Multiple maps per code point in '$prop' require single-element ranges: begin=$begin, end=$end, map=$map"; + croak __PACKAGE__, ":prop_invmap: Multiple maps per code point in '$prop' require single-element ranges: begin=$begin, end=$end, map=$map"; } if (! ref $invmap[-2]) { $invmap[-2] = [ $invmap[-2], $map ]; @@ -3208,7 +3208,7 @@ RETRY: # Find the range that the override applies to. my $i = _search_invlist(\@invlist, $cp); if ($cp < $invlist[$i] || $cp >= $invlist[$i + 1]) { - croak __PACKAGE__, "wrong_range, cp=$cp; i=$i, current=$invlist[$i]; next=$invlist[$i + 1]" + croak __PACKAGE__, "::prop_invmap: wrong_range, cp=$cp; i=$i, current=$invlist[$i]; next=$invlist[$i + 1]" } # And what that range currently maps to @@ -3309,7 +3309,7 @@ RETRY: $format = 's'; } if ($has_multiples && $format !~ /l/) { - croak __PACKAGE__, "Wrong format '$format' for prop_invmap('$prop'); should indicate has lists"; + croak __PACKAGE__, "::prop_invmap: Wrong format '$format' for prop_invmap('$prop'); should indicate has lists"; } return (\@invlist, \@invmap, $format, $missing); |