diff options
| author | Karl Williamson <khw@cpan.org> | 2015-05-13 17:53:55 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2015-08-01 10:34:50 -0600 |
| commit | 47b0825172d13eb5816cb0ec86fbb52a24ada8ca (patch) | |
| tree | 0f851052116becde4027a058bde9ad4df9d23691 /pp_pack.c | |
| parent | 8bd97c0cbefa849fec50f5addebc8d1da29d4e69 (diff) | |
| download | perl-47b0825172d13eb5816cb0ec86fbb52a24ada8ca.tar.gz | |
pp_pack.c: Add comment
Diffstat (limited to 'pp_pack.c')
| -rw-r--r-- | pp_pack.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -1573,7 +1573,8 @@ S_unpack_rec(pTHX_ tempsym_t* symptr, const char *s, const char *strbeg, const c U8 ch; ch = SHIFT_BYTE(utf8, s, strend, datumtype); auv = (auv << 7) | (ch & 0x7f); - /* UTF8_IS_XXXXX not right here - using constant 0x80 */ + /* UTF8_IS_XXXXX not right here because this is a BER, not + * UTF-8 format - using constant 0x80 */ if (ch < 0x80) { bytes = 0; mPUSHu(auv); |