back to PerlInterpreter * perl = NULL

PerlGameDev · Nov 11, 2010 · 9f0ea7f · 9f0ea7f
1 parent 6f4ca9b
commit 9f0ea7f
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/helper.h b/src/helper.h
@@ -2,6 +2,8 @@
 #ifndef SDL_PERL_HELPER_H
 #define SDL_PERL_HELPER_H
 
+PerlInterpreter * perl = NULL;
+
 void *bag2obj( SV *bag )
 {
     void *obj = NULL;
@@ -37,7 +39,7 @@ SV *_sv_ref( void *object, int p_size, int s_size, char *package )
 
     void** pointers = malloc(2 * sizeof(void*));
     pointers[0]     = (void*)copy;
-    pointers[1]     = (void*)PERL_GET_CONTEXT;
+    pointers[1]     = (void*)perl;
 
     return newSVsv(sv_setref_pv(ref, package, (void *)pointers));
 }