In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/db4b3a1d2c56c299e29a8bc6aa4d010bf566e9fc?hp=efaf36747029c85b4d8825318cb4d485a0bb350e>
- Log ----------------------------------------------------------------- commit db4b3a1d2c56c299e29a8bc6aa4d010bf566e9fc Author: Nicholas Clark <[email protected]> Date: Sun Apr 25 09:23:25 2010 +0100 In S_magic_methcall1(), tweak the initialisation of arg1 to reduce code size. ----------------------------------------------------------------------- Summary of changes: mg.c | 6 ++---- 1 files changed, 2 insertions(+), 4 deletions(-) diff --git a/mg.c b/mg.c index 24d2b98..b6bd297 100644 --- a/mg.c +++ b/mg.c @@ -1718,15 +1718,13 @@ S_magic_methcall1(pTHX_ SV *sv, const MAGIC *mg, const char *meth, I32 flags, if (mg->mg_ptr) { if (mg->mg_len >= 0) { - arg1 = newSVpvn(mg->mg_ptr, mg->mg_len); - sv_2mortal(arg1); + arg1 = newSVpvn_flags(mg->mg_ptr, mg->mg_len, SVs_TEMP); } else if (mg->mg_len == HEf_SVKEY) arg1 = MUTABLE_SV(mg->mg_ptr); } else if (mg->mg_type == PERL_MAGIC_tiedelem) { - arg1 = newSV_type(SVt_IV); - sv_setiv(arg1, (IV)(mg->mg_len)); + arg1 = newSViv((IV)(mg->mg_len)); sv_2mortal(arg1); } if (!arg1) { -- Perl5 Master Repository
