X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fsubs-auto.git;a=blobdiff_plain;f=auto.xs;h=a9b2733910b1e37aa5de731ba8cf3373f5ddc6a1;hp=35439a09407b763693aa80a1825d782b55a45d11;hb=5ed34ead165b4bd6a9ff41636c954678d9c8039c;hpb=d027f9e2d01eea3b32eff74cc1e89fae7e8927df

diff --git a/auto.xs b/auto.xs
index 35439a0..a9b2733 100644
--- a/auto.xs
+++ b/auto.xs
@@ -6,6 +6,10 @@
 #include "perl.h"
 #include "XSUB.h"
 
+#ifndef GvCV_set
+# define GvCV_set(G, C) (GvCV(G) = (C))
+#endif
+
 MODULE = subs::auto      PACKAGE = subs::auto
 
 PROTOTYPES: ENABLE
@@ -18,7 +22,7 @@ PPCODE:
  gv = gv_fetchsv(fqn, 0, 0);
  if (gv) {
   CV *cv = GvCV(gv);
-  GvCV(gv) = NULL;
+  GvCV_set(gv, NULL);
   SvREFCNT_dec(cv);
  }
  XSRETURN(0);