diff options
author | Karl Williamson <public@khwilliamson.com> | 2013-06-25 18:42:45 -0600 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2013-06-25 18:59:51 -0600 |
commit | b3e714770ee1b3012dc2480cc4bc33146b13e6d5 (patch) | |
tree | 4fc763db40ab30338a2261f77ebf0c3cfd03ed47 /pp.c | |
parent | 1c8b67b38f0a53a8eee6b8fa0ed6fa49e4c25cc7 (diff) | |
download | perl-b3e714770ee1b3012dc2480cc4bc33146b13e6d5.tar.gz |
Revert "Use UTF8f in more places"
This reverts commit acc19697c67fa63c10e07491b670a26c48f4175f.
This and the other UTF8f patch are causing significant problems on some
configurations on 32-bit platforms. We've decided to revert them until
they can be resubmitted after the kinks get ironed out.
Diffstat (limited to 'pp.c')
-rw-r--r-- | pp.c | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -492,8 +492,11 @@ PP(pp_prototype) if (strnEQ(s, "CORE::", 6)) { const int code = keyword(s + 6, SvCUR(TOPs) - 6, 1); if (!code || code == -KEY_CORE) - DIE(aTHX_ "Can't find an opnumber for \"%"UTF8f"\"", - SvFLAGS(TOPs) & SVf_UTF8, SvCUR(TOPs)-6, s+6); + DIE(aTHX_ "Can't find an opnumber for \"%"SVf"\"", + SVfARG(newSVpvn_flags( + s+6, SvCUR(TOPs)-6, + (SvFLAGS(TOPs) & SVf_UTF8)|SVs_TEMP + ))); { SV * const sv = core_prototype(NULL, s + 6, code, NULL); if (sv) ret = sv; |