Freshen Makefile.PL

[perl/modules/Test-Valgrind.git] / Valgrind.xs

diff --git a/Valgrind.xs b/Valgrind.xs
index d50485687c63664ffe54b449f9dbf9441c115443..b2108a2a58f5915280ce41f7738969777738368a 100644 (file)
--- a/Valgrind.xs
+++ b/Valgrind.xs
@@ -1,5 +1,5 @@
-/* This file is part of the Scalar::Vec::Util Perl module.
- * See http://search.cpan.org/dist/Scalar-Vec-Util/ */
+/* This file is part of the Test::Valgrind Perl module.
+ * See http://search.cpan.org/dist/Test::Valgrind/ */
 
 #define PERL_NO_GET_CONTEXT
 #include "EXTERN.h"
@@ -16,7 +16,13 @@
 # define DEBUGGING 0
 #endif
 
-const char *tvtxs_leaky = NULL;
+const char *tv_leaky = NULL;
+
+extern void tv_leak(void) {
+ tv_leaky = malloc(10000);
+
+ return;
+}
 
 /* --- XS ------------------------------------------------------------------ */
 
@@ -33,14 +39,14 @@ BOOT:
 void
 leak()
 CODE:
- Newx(tvtxs_leaky, 10000, char);
+ tv_leak();
  XSRETURN_UNDEF;
 
 SV *
 notleak(SV *sv)
 CODE:
- Newx(tvtxs_leaky, 10000, char);
- Safefree(tvtxs_leaky);
+ Newx(tv_leaky, 10000, char);
+ Safefree(tv_leaky);
  RETVAL = newSVsv(sv);
 OUTPUT:
  RETVAL