Fix up problem with gv.c from change 477.

Fix up Config.pm use in t/lib/ph.t from change 478.

p4raw-id: //depot/perl@484

1 files changed, 7 insertions, 2 deletions

diff --git a/gv.c b/gv.c
index 9ef439b385..3633e7bf62 100644
--- a/gv.c
+++ b/gv.c
@@ -428,9 +428,14 @@ gv_fetchpv(char *nambeg, I32 add, I32 sv_type)
 		gvp = (GV**)hv_fetch(stash,tmpbuf,len,add);
 		if (tmpbuf != autobuf)
 		    Safefree(tmpbuf);
-
-		if (!gv || gv == (GV*)&sv_undef)
+		if (!gvp || *gvp == (GV*)&sv_undef)
 		    return Nullgv;
+		gv = *gvp;
+
+                if (SvTYPE(gv) == SVt_PVGV)
+                    GvMULTI_on(gv);
+                else if (!add)
+                    return Nullgv;
 		else
 		    gv_init(gv, stash, nambeg, namend - nambeg, (add & 2));