From: Vincent Pit 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);