This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
8bd97c0
)
pp_pack.c: Add comment
author
Karl Williamson
<khw@cpan.org>
Wed, 13 May 2015 23:53:55 +0000
(17:53 -0600)
committer
Karl Williamson
<khw@cpan.org>
Sat, 1 Aug 2015 16:34:50 +0000
(10:34 -0600)
pp_pack.c
patch
|
blob
|
blame
|
history
diff --git
a/pp_pack.c
b/pp_pack.c
index
dd0dd4e
..
b1a0d85
100644
(file)
--- a/
pp_pack.c
+++ b/
pp_pack.c
@@
-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);