1 /* This file is part of the Scalar::Vec::Util Perl module.
2 * See http://search.cpan.org/dist/Scalar-Vec-Util/ */
4 #define PERL_NO_GET_CONTEXT
9 #define __PACKAGE__ "Test::Valgrind"
12 # define Newx(v, n, c) New(0, v, n, c)
19 const char *tv_leaky = NULL;
21 extern void tv_leak(void) {
22 tv_leaky = malloc(10000);
27 /* --- XS ------------------------------------------------------------------ */
29 MODULE = Test::Valgrind PACKAGE = Test::Valgrind
35 HV *stash = gv_stashpv(__PACKAGE__, 1);
36 newCONSTSUB(stash, "DEBUGGING", newSVuv(DEBUGGING));
48 Newx(tv_leaky, 10000, char);