gv.c:gv_autoload_pvn: Avoid warning due to temp flag
authorFather Chrysostomos <sprout@cpan.org>
Mon, 10 Oct 2011 21:12:22 +0000 (14:12 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 10 Oct 2011 21:12:22 +0000 (14:12 -0700)
gv.c

diff --git a/gv.c b/gv.c
index 22d78c7..77baacb 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -1207,6 +1207,7 @@ Perl_gv_autoload_pvn(pTHX_ HV *stash, const char *name, STRLEN len, U32 flags)
            );
            SvTEMP_on(tmpsv); /* Allow theft */
            sv_setsv_nomg((SV *)cv, tmpsv);
+           SvTEMP_off(tmpsv);
            SvREFCNT_dec(tmpsv);
            SvLEN(cv) = SvCUR(cv) + 1;
            SvCUR(cv) = ulen;