diff options
Diffstat (limited to 'cpan/Unicode-Collate/mkheader')
| -rw-r--r-- | cpan/Unicode-Collate/mkheader | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/cpan/Unicode-Collate/mkheader b/cpan/Unicode-Collate/mkheader index c3d0ebf00a..a575f436e2 100644 --- a/cpan/Unicode-Collate/mkheader +++ b/cpan/Unicode-Collate/mkheader @@ -22,6 +22,9 @@ BEGIN { unless ("A" eq pack('U', 0x41)) { die "Unicode::Collate cannot stringify a Unicode code point\n"; } + unless (0x41 == unpack('U', 'A')) { + die "Unicode::Collate cannot get a Unicode code point\n"; + } } use constant TRUE => 1; |