X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Upper.xs;h=682aa879f12664483e6d157a5aaeb5d81d32e3b1;hb=80ef65b1f1c9637151dd5fafbf9a590b4ead4e4d;hp=b3f6e4eaf297845dcac4e206d4d669e16e3f058e;hpb=d965a45a64e2aab24e3adbda18543e80a0b81e57;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/Upper.xs b/Upper.xs
index b3f6e4e..682aa87 100644
--- a/Upper.xs
+++ b/Upper.xs
@@ -48,6 +48,10 @@
 # define SvREFCNT_inc_simple_void(sv) SvREFCNT_inc(sv)
 #endif
 
+#ifndef GvCV_set
+# define GvCV_set(G, C) (GvCV(G) = (C))
+#endif
+
 #ifndef HvNAME_get
 # define HvNAME_get(H) HvNAME(H)
 #endif
@@ -546,7 +550,7 @@ STATIC void su_localize(pTHX_ void *ud_) {
    break;
   case SVt_PVCV:
    SAVESPTR(GvCV(gv));
-   GvCV(gv) = NULL;
+   GvCV_set(gv, NULL);
    break;
   default:
    gv = (GV *) save_scalar(gv);