const char *tv_leaky = NULL;
-extern void tv_leak(void) {
+/* malloc() on Windows needs the current interpreter. */
+
+#ifdef PERL_IMPLICIT_SYS
+# define TV_LEAK_PROTO pTHX
+# define TV_LEAK_ARG aTHX
+#else
+# define TV_LEAK_PROTO void
+# define TV_LEAK_ARG
+#endif
+
+extern void tv_leak(TV_LEAK_PROTO);
+
+extern void tv_leak(TV_LEAK_PROTO) {
tv_leaky = malloc(10000);
return;
void
leak()
CODE:
- tv_leak();
+ tv_leak(TV_LEAK_ARG);
XSRETURN_UNDEF;
SV *