diff options
author | Father Chrysostomos <sprout@cpan.org> | 2012-03-23 08:52:23 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2012-03-23 09:30:08 -0700 |
commit | 84cf752cf4667896f0ad1025fbb58f1ddf04ecdc (patch) | |
tree | 440ebd899b12200f47e064d65830d023419948bc | |
parent | ce16c625ecbfe5ee0a74317b44ba90696fad6e5c (diff) | |
download | perl-84cf752cf4667896f0ad1025fbb58f1ddf04ecdc.tar.gz |
Use HEKf in 2 places in op.c:S_finalize_op
The previous patch was written before HEKf existed.
HEKf with HEKfARG(...) is much faster than SVf with
SVfARG(sv_2mortal(newSVhek(...)))
-rw-r--r-- | op.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -1653,9 +1653,9 @@ S_finalize_op(pTHX_ OP* o) if (!hv_fetch(GvHV(*fields), key, SvUTF8(*svp) ? -(I32)keylen : (I32)keylen, FALSE)) { Perl_croak(aTHX_ "No such class field \"%"SVf"\" " - "in variable %"SVf" of type %"SVf, + "in variable %"SVf" of type %"HEKf, SVfARG(*svp), SVfARG(lexname), - SVfARG(sv_2mortal(newSVhek(HvNAME_HEK(SvSTASH(lexname)))))); + HEKfARG(HvNAME_HEK(SvSTASH(lexname)))); } break; } @@ -1709,9 +1709,9 @@ S_finalize_op(pTHX_ OP* o) if (!hv_fetch(GvHV(*fields), key, SvUTF8(*svp) ? -(I32)keylen : (I32)keylen, FALSE)) { Perl_croak(aTHX_ "No such class field \"%"SVf"\" " - "in variable %"SVf" of type %"SVf, + "in variable %"SVf" of type %"HEKf, SVfARG(*svp), SVfARG(lexname), - SVfARG(sv_2mortal(newSVhek(HvNAME_HEK(SvSTASH(lexname)))))); + HEKfARG(HvNAME_HEK(SvSTASH(lexname)))); } } break; |