X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FTest-Valgrind.git;a=blobdiff_plain;f=Valgrind.xs;h=a9f0eff0cf9a6a7119fc6d7ea849ef95a8124bef;hp=d50485687c63664ffe54b449f9dbf9441c115443;hb=b41c498738a3a4ccb8742883a42e6ea5addb1afd;hpb=c28e54f56f6f36e3d6364b1cd07048bb288aa9d7

diff --git a/Valgrind.xs b/Valgrind.xs
index d504856..a9f0eff 100644
--- a/Valgrind.xs
+++ b/Valgrind.xs
@@ -16,7 +16,7 @@
 # define DEBUGGING 0
 #endif
 
-const char *tvtxs_leaky = NULL;
+const char *tv_leaky = NULL;
 
 /* --- XS ------------------------------------------------------------------ */
 
@@ -33,14 +33,14 @@ BOOT:
 void
 leak()
 CODE:
- Newx(tvtxs_leaky, 10000, char);
+ tv_leaky = malloc(10000);
  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