diff options
author | Father Chrysostomos <sprout@cpan.org> | 2013-10-24 12:46:52 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2013-10-24 17:50:19 -0700 |
commit | 1a8bdda9d755b989a595e71b28eba150ebaae663 (patch) | |
tree | 51db4a809010bf9a9febe2d85eb5d428cee569c1 /pp_hot.c | |
parent | 348e937b56a12497c3c54e7a108457159955398f (diff) | |
download | perl-1a8bdda9d755b989a595e71b28eba150ebaae663.tar.gz |
rv2hv does not use its TARG
rv2hv has had a TARG since perl 5.000, but it has not used it since
hv_scalar was added in perl-5.8.0-3008-ga3bcc51.
This commit removes it, saving a tiny bit of space in the pad.
Diffstat (limited to 'pp_hot.c')
-rw-r--r-- | pp_hot.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -939,7 +939,7 @@ PP(pp_rv2av) && (!SvRMAGICAL(sv) || !mg_find(sv, PERL_MAGIC_tied))) SETs(HvUSEDKEYS(sv) ? &PL_sv_yes : sv_2mortal(newSViv(0))); else if (gimme == G_SCALAR) { - dTARGET; + dTARG; TARG = Perl_hv_scalar(aTHX_ MUTABLE_HV(sv)); SPAGAIN; SETTARG; |