gistfile1.diff

diff --git a/cop.h b/cop.h
index ce0cd54..f953991 100644
--- a/cop.h
+++ b/cop.h
@@ -1111,7 +1111,8 @@ typedef struct stackinfo PERL_SI;
 
 #define PUSHSTACKi(type) \
     STMT_START {							\
-	PERL_SI *next = PL_curstackinfo->si_next;			\
+	PERL_SI *next = PL_curstackinfo ?                               \
+	        PL_curstackinfo->si_next : NULL;			\
 	DEBUG_l({							\
 	    int i = 0; PERL_SI *p = PL_curstackinfo;			\
 	    while (p) { i++; p = p->si_prev; }				\