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
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
amigaos4: no env in main()
[perl5.git]
/
hv.c
diff --git
a/hv.c
b/hv.c
index
9271901
..
253cad9
100644
(file)
--- a/
hv.c
+++ b/
hv.c
@@
-3223,7
+3223,7
@@
Perl_refcounted_he_fetch_pvn(pTHX_ const struct refcounted_he *chain,
}
else {
p++;
- *q = (char)
TWO_BYTE
_UTF8_TO_NATIVE(c, *p);
+ *q = (char)
EIGHT_BIT
_UTF8_TO_NATIVE(c, *p);
}
}
}
@@
-3399,7
+3399,7
@@
Perl_refcounted_he_new_pvn(pTHX_ struct refcounted_he *parent,
}
else {
p++;
- *q = (char)
TWO_BYTE
_UTF8_TO_NATIVE(c, *p);
+ *q = (char)
EIGHT_BIT
_UTF8_TO_NATIVE(c, *p);
}
}
}