summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2013-06-23 06:27:35 -0700
committerFather Chrysostomos <sprout@cpan.org>2013-06-23 06:27:35 -0700
commitacc19697c67fa63c10e07491b670a26c48f4175f (patch)
tree3a8b67f76dc0643a682fb225874348752825131b /pp_ctl.c
parent5e5128baad2b5270092b52fbc13176a693aab587 (diff)
downloadperl-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.c5
1 files changed, 2 insertions, 3 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index f68336afe3..2f2dd795f0 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -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