diff options
author | Karl Williamson <khw@cpan.org> | 2017-02-11 13:00:27 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2017-02-11 21:11:13 -0700 |
commit | 05fefba96af5488952719c6f57af518afba9170a (patch) | |
tree | 4f5b8de2441d2f1fe51c58da2881276a1efb63d7 /pp_pack.c | |
parent | 15b010f03b2e5fb7406abea47a023c54c42402a2 (diff) | |
download | perl-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.c | 15 |
1 files changed, 5 insertions, 10 deletions
@@ -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; |