summaryrefslogtreecommitdiff
path: root/pp_pack.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2017-02-11 13:00:27 -0700
committerKarl Williamson <khw@cpan.org>2017-02-11 21:11:13 -0700
commit05fefba96af5488952719c6f57af518afba9170a (patch)
tree4f5b8de2441d2f1fe51c58da2881276a1efb63d7 /pp_pack.c
parent15b010f03b2e5fb7406abea47a023c54c42402a2 (diff)
downloadperl-05fefba96af5488952719c6f57af518afba9170a.tar.gz
pp_pack.c: Remove obsolete code
This code effectively reduced to if (foo) 0 else 0 because a #define was changed to 0 some releases ago. Just replace by 0
Diffstat (limited to 'pp_pack.c')
-rw-r--r--pp_pack.c15
1 files changed, 5 insertions, 10 deletions
diff --git a/pp_pack.c b/pp_pack.c
index 737e019a74..a3055edc7e 100644
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -2594,10 +2594,7 @@ S_pack_rec(pTHX_ SV *cat, tempsym_t* symptr, SV **beglist, SV **endlist )
GROWING(0, cat, start, cur, len+UTF8_MAXLEN);
end = start+SvLEN(cat)-UTF8_MAXLEN;
}
- cur = (char *) uvchr_to_utf8_flags((U8 *) cur,
- auv,
- warn_utf8 ?
- 0 : UNICODE_ALLOW_ANY);
+ cur = (char *) uvchr_to_utf8_flags((U8 *) cur, auv, 0);
} else {
if (auv >= 0x100) {
if (!SvUTF8(cat)) {
@@ -2648,9 +2645,7 @@ S_pack_rec(pTHX_ SV *cat, tempsym_t* symptr, SV **beglist, SV **endlist )
auv = SvUV_no_inf(fromstr, datumtype);
if (utf8) {
U8 buffer[UTF8_MAXLEN], *endb;
- endb = uvchr_to_utf8_flags(buffer, UNI_TO_NATIVE(auv),
- warn_utf8 ?
- 0 : UNICODE_ALLOW_ANY);
+ endb = uvchr_to_utf8_flags(buffer, UNI_TO_NATIVE(auv), 0);
if (cur+(endb-buffer)*UTF8_EXPAND >= end) {
*cur = '\0';
SvCUR_set(cat, cur - start);
@@ -2666,9 +2661,9 @@ S_pack_rec(pTHX_ SV *cat, tempsym_t* symptr, SV **beglist, SV **endlist )
GROWING(0, cat, start, cur, len+UTF8_MAXLEN);
end = start+SvLEN(cat)-UTF8_MAXLEN;
}
- cur = (char *) uvchr_to_utf8_flags((U8 *) cur, UNI_TO_NATIVE(auv),
- warn_utf8 ?
- 0 : UNICODE_ALLOW_ANY);
+ cur = (char *) uvchr_to_utf8_flags((U8 *) cur,
+ UNI_TO_NATIVE(auv),
+ 0);
}
}
break;