X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Name.xs;h=2c669bdd5981da414a9388929fecc336c0cc0dac;hb=08e379858d9c5335779904178682afbf9f8bd676;hp=9b38b050a14662c2e67a18223b15764e2fdca70a;hpb=65b620ddc50aeaecea9945eeeaf971909cf6e963;p=p5sagit%2FSub-Name.git

diff --git a/Name.xs b/Name.xs
index 9b38b05..2c669bd 100644
--- a/Name.xs
+++ b/Name.xs
@@ -88,5 +88,9 @@ subname(name, sub)
 		mg->mg_flags |= MGf_REFCOUNTED;
 		mg->mg_obj = (SV *) gv;
 	}
+#ifndef CvGV_set
 	CvGV(cv) = gv;
+#else
+	CvGV_set(cv, gv);
+#endif
 	PUSHs(sub);