| Subject: | [PATCH] Leak.xs: working sv_dump() IS provided starting with perl-5.6.0 |
| Date: | Thu, 26 Oct 2006 07:42:27 +0400 |
| To: | bug-devel-leak [...] rt.cpan.org |
| From: | Alexey Tourbin <at [...] altlinux.ru> |
---
Leak.pm | 2 +-
Leak.xs | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/Leak.pm b/Leak.pm
index 0024422..f71945d 100644
--- a/Leak.pm
+++ b/Leak.pm
@@ -41,7 +41,7 @@ of "things" now allocated.
=head1 CAVEATS
-Note that you need a perl built with -DDEBUGGING for
+Note that you may need a perl built with -DDEBUGGING for
sv_dump() to print anything, but counts are valid in any perl.
If new "things" I<have> been created, C<CheckSV> may (also) report additional
diff --git a/Leak.xs b/Leak.xs
index c41b2ad..59b2390 100644
--- a/Leak.xs
+++ b/Leak.xs
@@ -11,7 +11,7 @@
typedef long used_proc _((void *,SV *,long));
typedef struct hash_s *hash_ptr;
-#ifndef DEBUGGING
+#ifndef sv_dump
#define sv_dump(sv) PerlIO_printf(PerlIO_stderr(), "\n")
#endif
--
1.4.3.GIT