In Perl_amagic_call(), construct the SV with newSVpvn(), as we now know

the length. (Not sure why I didn't spot this one during change 32124.)

p4raw-id: //depot/perl@32132

1 files changed, 2 insertions, 1 deletions

diff --git a/gv.c b/gv.c
index a9eb65a853..d34d04328c 100644
--- a/gv.c
+++ b/gv.c
@@ -2037,7 +2037,8 @@ Perl_amagic_call(pTHX_ SV *left, SV *right, int method, int flags)
     PUSHs(lr>0? left: right);
     PUSHs( lr > 0 ? &PL_sv_yes : ( assign ? &PL_sv_undef : &PL_sv_no ));
     if (notfound) {
-      PUSHs( sv_2mortal(newSVpv(AMG_id2name(method + assignshift),0)));
+      PUSHs( sv_2mortal(newSVpvn(AMG_id2name(method + assignshift),
+				 AMG_id2namelen(method + assignshift))));
     }
     PUSHs((SV*)cv);
     PUTBACK;