Support perl >= 5.13.3

[p5sagit/Sub-Name.git] / Name.xs

diff --git a/Name.xs b/Name.xs
index 9b38b05..2c669bd 100644 (file)
--- 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);