diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2011-07-22 09:52:28 -0300 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-10-06 13:01:06 -0700 |
| commit | f5e296505b07fcaa7aa234e6d40d647e33122503 (patch) | |
| tree | ed270f4590cb14be781fa59fe2165cda3948d078 /pp.c | |
| parent | d1089224506e262d598b694bc7bb551203ff939f (diff) | |
| download | perl-f5e296505b07fcaa7aa234e6d40d647e33122503.tar.gz | |
pp.c: Make pp_rv2cv use gv_autoload_pvn()
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -419,7 +419,7 @@ PP(pp_rv2cv) if (CvCLONE(cv)) cv = MUTABLE_CV(sv_2mortal(MUTABLE_SV(cv_clone(cv)))); if ((PL_op->op_private & OPpLVAL_INTRO)) { - if (gv && GvCV(gv) == cv && (gv = gv_autoload4(GvSTASH(gv), GvNAME(gv), GvNAMELEN(gv), FALSE))) + if (gv && GvCV(gv) == cv && (gv = gv_autoload_pvn(GvSTASH(gv), GvNAME(gv), GvNAMELEN(gv), GvNAMEUTF8(gv) ? SVf_UTF8 : 0))) cv = GvCV(gv); if (!CvLVALUE(cv)) DIE(aTHX_ "Can't modify non-lvalue subroutine call"); |