Add p5-Filesys-DiskUsage 0.02, perl equivalent of du(1).

PR:		86378
Submitted by:	Alex Deiter <tiamat@komi.mts.ru>

sysutils/Makefile

@@ -340,6 +340,7 @@
     SUBDIR += p5-File-Which
     SUBDIR += p5-Filesys-DiskFree
     SUBDIR += p5-Filesys-DiskSpace
+    SUBDIR += p5-Filesys-DiskUsage
     SUBDIR += p5-FreeBSD-Portindex
     SUBDIR += p5-LJ-Cache
     SUBDIR += p5-LJ-TextMessage

sysutils/p5-Filesys-DiskUsage/Makefile

@@ -0,0 +1,33 @@
+# New ports collection makefile for:	sysutils/p5-Filesys-DiskUsage
+# Date created:				20 September 2005
+# Whom:					Alex Deiter <tiamat@komi.mts.ru>
+#
+# $FreeBSD$
+#
+
+PORTNAME=	Filesys-DiskUsage
+PORTVERSION=	0.02
+CATEGORIES=	sysutils perl5
+MASTER_SITES=	${MASTER_SITE_PERL_CPAN}
+MASTER_SITE_SUBDIR=	Filesys
+PKGNAMEPREFIX=	p5-
+
+MAINTAINER=	tiamat@komi.mts.ru
+COMMENT=	Perl equivalent of du(1)
+
+PERL_CONFIGURE=	yes
+
+MAN3=		Filesys::DiskUsage.3
+
+.include <bsd.port.pre.mk>
+
+post-patch:
+	@${RM} ${WRKSRC}/lib/Filesys/DiskUsage.pm.orig
+.if ${PERL_LEVEL} < 500600
+	@${PERL} -pi -e '$$_ = "" if /use warnings;/;' \
+		-e 's/^our\s+([\$$\@\%]\w+)/use vars qw($$1); $$1/;' \
+		${WRKSRC}/lib/Filesys/DiskUsage.pm \
+		${WRKSRC}/Makefile.PL
+.endif
+
+.include <bsd.port.post.mk>

sysutils/p5-Filesys-DiskUsage/distinfo

@@ -0,0 +1,2 @@
+MD5 (Filesys-DiskUsage-0.02.tar.gz) = 30ebd7b251c0a0ab35db8791c53c9760
+SIZE (Filesys-DiskUsage-0.02.tar.gz) = 3174

sysutils/p5-Filesys-DiskUsage/files/patch-aa

@@ -0,0 +1,20 @@
+--- lib/Filesys/DiskUsage.pm.orig	Wed Jan 19 13:51:52 2005
++++ lib/Filesys/DiskUsage.pm	Wed Sep 21 15:02:35 2005
+@@ -55,7 +55,7 @@
+   # get a hash
+   %sizes = du( { 'make-hash' => 1 }, @files_and_directories );
+ 
+-=head1 FUNCTIONS
++=head1 DESCRIPTION
+ 
+ =head2 du
+ 
+@@ -69,7 +69,7 @@
+ 
+   $total = du(qw/file1 directory1/);
+ 
+-=head3 OPTIONS
++=head2 OPTIONS
+ 
+ =over 6
+ 

sysutils/p5-Filesys-DiskUsage/pkg-descr

@@ -0,0 +1,3 @@
+Filesys::DiskUsage - Estimate file space usage (similar to `du`)
+
+WWW: http://search.cpan.org/dist/Filesys-DiskUsage/

sysutils/p5-Filesys-DiskUsage/pkg-plist

@@ -0,0 +1,5 @@
+%%SITE_PERL%%/%%PERL_ARCH%%/auto/Filesys/DiskUsage/.packlist
+%%SITE_PERL%%/Filesys/DiskUsage.pm
+@dirrm %%SITE_PERL%%/%%PERL_ARCH%%/auto/Filesys/DiskUsage
+@dirrm %%SITE_PERL%%/%%PERL_ARCH%%/auto/Filesys
+@dirrm %%SITE_PERL%%/Filesys