Skip to content

Instantly share code, notes, and snippets.

@mattn

mattn/gist:628b688663bb33d9fd6e

Last active August 29, 2015 14:19
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save mattn/628b688663bb33d9fd6e to your computer and use it in GitHub Desktop.
Save mattn/628b688663bb33d9fd6e to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.diff
diff --git a/cop.h b/cop.h
index ce0cd54..91ab282 100644
--- a/cop.h
+++ b/cop.h
@@ -1111,6 +1111,8 @@ typedef struct stackinfo PERL_SI;
#define PUSHSTACKi(type) \
STMT_START { \
+ if (!PL_curstackinfo) \
+ Perl_init_stacks(aTHX); \
PERL_SI *next = PL_curstackinfo->si_next; \
DEBUG_l({ \
int i = 0; PERL_SI *p = PL_curstackinfo; \
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment