6 files changed, 49 insertions, 0 deletions
diff --git a/devel/Makefile b/devel/Makefile
index 97aefa333469..727f48fec558 100644
--- a/devel/Makefile
+++ b/devel/Makefile
@@ -446,6 +446,7 @@
     SUBDIR += p5-DateConvert
     SUBDIR += p5-Devel-Constants
     SUBDIR += p5-Devel-DProf
+    SUBDIR += p5-Devel-Leak
     SUBDIR += p5-Devel-Modlist
     SUBDIR += p5-Devel-Peek
     SUBDIR += p5-Devel-Profiler
diff --git a/devel/p5-Devel-Leak/Makefile b/devel/p5-Devel-Leak/Makefile
new file mode 100644
index 000000000000..7eeaed8dc45f
--- /dev/null
+++ b/devel/p5-Devel-Leak/Makefile
@@ -0,0 +1,22 @@
+# New ports collection makefile for:	Devel-Leak
+# Date created:	   09 September 2002
+# Whom:		   Sergey Skvortsov <skv@protey.ru>
+#
+# $FreeBSD$
+#
+
+PORTNAME=	Devel-Leak
+PORTVERSION=	0.02
+CATEGORIES=	devel perl5
+MASTER_SITES=	${MASTER_SITE_PERL_CPAN}
+MASTER_SITE_SUBDIR=	Devel
+PKGNAMEPREFIX=	p5-
+
+MAINTAINER=	skv@FreeBSD.org
+
+PERL_CONFIGURE=	yes
+
+MAN3PREFIX=	${PREFIX}/lib/perl5/${PERL_VERSION}
+MAN3=		Devel::Leak.3
+
+.include <bsd.port.mk>
diff --git a/devel/p5-Devel-Leak/distinfo b/devel/p5-Devel-Leak/distinfo
new file mode 100644
index 000000000000..236f543fc6e4
--- /dev/null
+++ b/devel/p5-Devel-Leak/distinfo
@@ -0,0 +1 @@
+MD5 (Devel-Leak-0.02.tar.gz) = f4dece7cfb09a08840139ee3f54f84a0
diff --git a/devel/p5-Devel-Leak/pkg-comment b/devel/p5-Devel-Leak/pkg-comment
new file mode 100644
index 000000000000..c476a30b3e61
--- /dev/null
+++ b/devel/p5-Devel-Leak/pkg-comment
@@ -0,0 +1 @@
+Utility for looking for perl objects that are not reclaimed
diff --git a/devel/p5-Devel-Leak/pkg-descr b/devel/p5-Devel-Leak/pkg-descr
new file mode 100644
index 000000000000..cd19efa26b25
--- /dev/null
+++ b/devel/p5-Devel-Leak/pkg-descr
@@ -0,0 +1,17 @@
+Devel::Leak has two functions NoteSV and CheckSV.
+
+NoteSV walks the perl internal table of allocated SVs (scalar values) -
+(which actually contains arrays and hashes too), and records their
+addresses in a table.  It returns a count of these "things", and stores
+a pointer to the table (which is obtained from the heap using malloc())
+in its argument.
+
+CheckSV is passed argument which holds a pointer to a table created by
+NoteSV.  It re-walks the perl-internals and calls sv_dump() for any
+"things" which did not exist when NoteSV was called.  It returns a count
+of the number of "things" now allocated.
+
+WWW: http://search.cpan.org/search?dist=Devel-Leak
+
+-- Sergey Skvortsov
+skv@FreeBSD.org
diff --git a/devel/p5-Devel-Leak/pkg-plist b/devel/p5-Devel-Leak/pkg-plist
new file mode 100644
index 000000000000..e6e5586bfedc
--- /dev/null
+++ b/devel/p5-Devel-Leak/pkg-plist
@@ -0,0 +1,7 @@
+lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Devel/Leak/.packlist
+lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/Devel/Leak.pm
+lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Devel/Leak/Leak.bs
+lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Devel/Leak/Leak.so
+@dirrm lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Devel/Leak
+@unexec rmdir %D/lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/Devel 2>/dev/null || true
+@unexec rmdir %D/lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Devel 2>/dev/null || true