From: Vincent Pit <vince@profvince.com>
Date: Wed, 5 Jan 2011 20:10:52 +0000 (+0100)
Subject: Preemptively remove uses of lvalue GvCV
X-Git-Tag: rt65000
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=37dd1331c98f041e03fe87f3e2c8c45c4eb64afa;p=perl%2Fmodules%2Fsubs-auto.git

Preemptively remove uses of lvalue GvCV
---

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);