6 files changed, 51 insertions, 0 deletions

diff --git a/devel/Makefile b/devel/Makefile
index 727f48fec558..b93c9166d336 100644
--- a/devel/Makefile
+++ b/devel/Makefile
@@ -448,6 +448,7 @@
     SUBDIR += p5-Devel-DProf
     SUBDIR += p5-Devel-Leak
     SUBDIR += p5-Devel-Modlist
+    SUBDIR += p5-Devel-ObjectTracker
     SUBDIR += p5-Devel-Peek
     SUBDIR += p5-Devel-Profiler
     SUBDIR += p5-Devel-StackTrace
diff --git a/devel/p5-Devel-ObjectTracker/Makefile b/devel/p5-Devel-ObjectTracker/Makefile
new file mode 100644
index 000000000000..85a24e807aff
--- /dev/null
+++ b/devel/p5-Devel-ObjectTracker/Makefile
@@ -0,0 +1,22 @@
+# New ports collection makefile for:	Devel-ObjectTracker
+# Date created:	   09 September 2002
+# Whom:		   Sergey Skvortsov <skv@protey.ru>
+#
+# $FreeBSD$
+#
+
+PORTNAME=	Devel-ObjectTracker
+PORTVERSION=	0.4
+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::ObjectTracker.3
+
+.include <bsd.port.mk>
diff --git a/devel/p5-Devel-ObjectTracker/distinfo b/devel/p5-Devel-ObjectTracker/distinfo
new file mode 100644
index 000000000000..9d0b746831a6
--- /dev/null
+++ b/devel/p5-Devel-ObjectTracker/distinfo
@@ -0,0 +1 @@
+MD5 (Devel-ObjectTracker-0.4.tar.gz) = 1cd287c0ebccc366283d5c5c93b3f391
diff --git a/devel/p5-Devel-ObjectTracker/pkg-comment b/devel/p5-Devel-ObjectTracker/pkg-comment
new file mode 100644
index 000000000000..b2185ae46157
--- /dev/null
+++ b/devel/p5-Devel-ObjectTracker/pkg-comment
@@ -0,0 +1 @@
+Track object life to detect memory leaks
diff --git a/devel/p5-Devel-ObjectTracker/pkg-descr b/devel/p5-Devel-ObjectTracker/pkg-descr
new file mode 100644
index 000000000000..2227662bf506
--- /dev/null
+++ b/devel/p5-Devel-ObjectTracker/pkg-descr
@@ -0,0 +1,21 @@
+Debug module to find where perl objects (or arrays, hashes and globs)
+are created by checking for objects passed to and/or returned from subs,
+and monitoring when they are destroyed via destructor subs.  This can
+help detect memory leaks caused by objects being left behind in your
+programs when they shouldn't be.
+
+The main output is stored in a file which logs the first time a memory
+reference is seen with datetime, current session number (starts at 1),
+object type, call stack etc., and whether the object was first seen
+returned from a sub or passed as an argument.  Details are also logged
+whenever an object is destroyed.  This includes the datetime, session
+and call stack when the object was created.
+
+The subroutine Devel::ObjectTracker::output_details outputs details on
+the currently existing objects on demand.  These details contain
+date/time, session, call stack, etc. when the object was created.
+
+WWW: http://search.cpan.org/search?dist=Devel-ObjectTracker
+
+-- Sergey Skvortsov
+skv@FreeBSD.org
diff --git a/devel/p5-Devel-ObjectTracker/pkg-plist b/devel/p5-Devel-ObjectTracker/pkg-plist
new file mode 100644
index 000000000000..ef53158a4474
--- /dev/null
+++ b/devel/p5-Devel-ObjectTracker/pkg-plist
@@ -0,0 +1,5 @@
+lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Devel/ObjectTracker/.packlist
+lib/perl5/site_perl/%%PERL_VER%%/Devel/ObjectTracker.pm
+@dirrm lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Devel/ObjectTracker
+@unexec rmdir %D/lib/perl5/site_perl/%%PERL_VER%%/Devel 2>/dev/null || true
+@unexec rmdir %D/lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Devel 2>/dev/null || true