diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-04-21 19:12:21 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-05-29 09:41:14 -0700 |
| commit | 1b08e05188c16b744b6f2b0e2a2321db606eb88d (patch) | |
| tree | 92df09ea5bff2eab0e09893318ca4e64ff4ec3c2 /pp.c | |
| parent | edba6325a4364c7c1a9869871bb3d0be8e33acf7 (diff) | |
| download | perl-1b08e05188c16b744b6f2b0e2a2321db606eb88d.tar.gz | |
[perl #97478] Make ‘Can’t find opnumber’ UTF-8- and null-clean
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -439,7 +439,10 @@ 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 \"%s\"", s+6); + DIE(aTHX_ "Can't find an opnumber for \"%"SVf"\"", + SVfARG(newSVpvn_flags( + s+6, SvCUR(TOPs)-6, SvFLAGS(TOPs) & SVf_UTF8 + ))); { SV * const sv = core_prototype(NULL, s + 6, code, NULL); if (sv) ret = sv; |