diff options
author | Father Chrysostomos <sprout@cpan.org> | 2013-06-23 06:27:35 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2013-06-23 06:27:35 -0700 |
commit | acc19697c67fa63c10e07491b670a26c48f4175f (patch) | |
tree | 3a8b67f76dc0643a682fb225874348752825131b /pp_ctl.c | |
parent | 5e5128baad2b5270092b52fbc13176a693aab587 (diff) | |
download | perl-acc19697c67fa63c10e07491b670a26c48f4175f.tar.gz |
Use UTF8f in more places
This saves having to allocate as many SVs.
Diffstat (limited to 'pp_ctl.c')
-rw-r--r-- | pp_ctl.c | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -3070,9 +3070,8 @@ PP(pp_goto) PL_lastgotoprobe = gotoprobe; } if (!retop) - DIE(aTHX_ "Can't find label %"SVf, - SVfARG(newSVpvn_flags(label, label_len, - SVs_TEMP | label_flags))); + DIE(aTHX_ "Can't find label %"UTF8f, + label_flags, label_len, label); /* if we're leaving an eval, check before we pop any frames that we're not going to punt, otherwise the error |