Index: Alias-2.32/Alias.xs
--- Alias-2.32/Alias.xs.orig	1999-05-01 04:11:09.000000000 +0200
+++ Alias-2.32/Alias.xs	2011-06-19 15:08:26.000000000 +0200
@@ -15,6 +15,10 @@
 #define PERL_SUBVERSION       SUBVERSION
 #endif
 
+#ifndef GvCV_set
+#define GvCV_set(gv,cv) GvCV((gv)) = (cv)
+#endif
+
 #if PERL_REVISION == 5 && (PERL_VERSION < 4 || (PERL_VERSION == 4 && PERL_SUBVERSION <= 75 ))
 
 #define PL_stack_sp	stack_sp
@@ -96,6 +100,7 @@
 		(void)hv_iterinit(hv);
 		while ((val = hv_iternextsv(hv, &key, &klen))) {
 		    GV *gv;
+		    CV *cv;
 		    int stype = SvTYPE(val);
 		    int deref_this = 1;
 		    int deref_objects = 0;
@@ -205,8 +210,9 @@
 			save_gp(gv,TRUE);   /* hide previous entry in symtab */
 			break;
 		    case SVt_PVCV:
-			SAVESPTR(GvCV(gv));
-			GvCV(gv) = Null(CV*);
+		        cv = GvCV(gv);
+			SAVESPTR(cv);
+			GvCV_set(gv,Null(CV*));
 			break;
 		    default:
 			save_scalar(gv);
