diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-11-24 00:05:33 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-11-30 11:48:37 -0800 |
| commit | 8d98b5bc31467e9874759490ec9cdd505a121d9e (patch) | |
| tree | 1b6741a2e94528c66954d60ea6df6f00e525a01e /pad.c | |
| parent | 2502ffdfca07fac6972c9b2da7ae160d011c2877 (diff) | |
| download | perl-8d98b5bc31467e9874759490ec9cdd505a121d9e.tar.gz | |
pad.c: Use UTF8f for ‘will not stay shared’
This is more efficient than creating a temporary SV.
Diffstat (limited to 'pad.c')
| -rw-r--r-- | pad.c | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -1234,9 +1234,8 @@ S_pad_findlex(pTHX_ const char *namepv, STRLEN namelen, U32 flags, const CV* cv, && warn && ckWARN(WARN_CLOSURE)) { newwarn = 0; Perl_warner(aTHX_ packWARN(WARN_CLOSURE), - "Variable \"%"SVf"\" will not stay shared", - SVfARG(newSVpvn_flags(namepv, namelen, - SVs_TEMP|SVf_UTF8))); + "Variable \"%"UTF8f"\" will not stay shared", + UTF8fARG(1, namelen, namepv)); } if (fake_offset && CvANON(cv) |