ports/86378: New port: sysutils/p5-Filesys-DiskUsage

[Alex Deiter]

The following reply was made to PR ports/86378; it has been noted by GNATS.

From: Alex Deiter <tiamat at komi.mts.ru>
To: bug-followup at FreeBSD.org
Cc:  
Subject: Re: ports/86378: New port: sysutils/p5-Filesys-DiskUsage
Date: Thu, 22 Sep 2005 17:00:53 +0400 (MSD)

 I am sorry. Here corrected shar archive.
 Tested twice on FreeBSD 5.3 & 4.8.
 
 # This is a shell archive.  Save it in a file, remove anything before
 # this line, and then unpack it by entering "sh file".  Note, it may
 # create directories; files and directories will be owned by you and
 # have default permissions.
 #
 # This archive contains:
 #
 #	p5-Filesys-DiskUsage
 #	p5-Filesys-DiskUsage/pkg-plist
 #	p5-Filesys-DiskUsage/pkg-descr
 #	p5-Filesys-DiskUsage/distinfo
 #	p5-Filesys-DiskUsage/Makefile
 #	p5-Filesys-DiskUsage/files
 #	p5-Filesys-DiskUsage/files/patch-aa
 #
 echo c - p5-Filesys-DiskUsage
 mkdir -p p5-Filesys-DiskUsage > /dev/null 2>&1
 echo x - p5-Filesys-DiskUsage/pkg-plist
 sed 's/^X//' >p5-Filesys-DiskUsage/pkg-plist << 'END-of-p5-Filesys-DiskUsage/pkg-plist'
 X%%SITE_PERL%%/%%PERL_ARCH%%/auto/Filesys/DiskUsage/.packlist
 X%%SITE_PERL%%/Filesys/DiskUsage.pm
 X at dirrm %%SITE_PERL%%/%%PERL_ARCH%%/auto/Filesys/DiskUsage
 X at dirrm %%SITE_PERL%%/%%PERL_ARCH%%/auto/Filesys
 X at dirrm %%SITE_PERL%%/Filesys
 END-of-p5-Filesys-DiskUsage/pkg-plist
 echo x - p5-Filesys-DiskUsage/pkg-descr
 sed 's/^X//' >p5-Filesys-DiskUsage/pkg-descr << 'END-of-p5-Filesys-DiskUsage/pkg-descr'
 XFilesys::DiskUsage - Estimate file space usage (similar to `du`)
 X
 XWWW: http://search.cpan.org/dist/Filesys-DiskUsage/
 END-of-p5-Filesys-DiskUsage/pkg-descr
 echo x - p5-Filesys-DiskUsage/distinfo
 sed 's/^X//' >p5-Filesys-DiskUsage/distinfo << 'END-of-p5-Filesys-DiskUsage/distinfo'
 XMD5 (Filesys-DiskUsage-0.02.tar.gz) = 30ebd7b251c0a0ab35db8791c53c9760
 XSIZE (Filesys-DiskUsage-0.02.tar.gz) = 3174
 END-of-p5-Filesys-DiskUsage/distinfo
 echo x - p5-Filesys-DiskUsage/Makefile
 sed 's/^X//' >p5-Filesys-DiskUsage/Makefile << 'END-of-p5-Filesys-DiskUsage/Makefile'
 X# New ports collection makefile for:	sysutils/p5-Filesys-DiskUsage
 X# Date created:				20 September 2005
 X# Whom:					Alex Deiter <tiamat at komi.mts.ru>
 X#
 X# $FreeBSD: ports/sysutils/p5-Filesys-DiskUsage/Makefile,v 1.1 2005/09/20 22:17:22 tiamat Exp $
 X#
 X
 XPORTNAME=	Filesys-DiskUsage
 XPORTVERSION=	0.02
 XCATEGORIES=	sysutils perl5
 XMASTER_SITES=	${MASTER_SITE_PERL_CPAN}
 XMASTER_SITE_SUBDIR=	Filesys
 XPKGNAMEPREFIX=	p5-
 X
 XMAINTAINER=	tiamat at komi.mts.ru
 XCOMMENT=	Perl equivalent of du(1)
 X
 XPERL_CONFIGURE=	yes
 X
 XMAN3=		Filesys::DiskUsage.3
 X
 X.include <bsd.port.pre.mk>
 X
 Xpost-patch:
 X	@${RM} ${WRKSRC}/lib/Filesys/DiskUsage.pm.orig
 X.if ${PERL_LEVEL} < 500600
 X	@${PERL} -pi -e '$$_ = "" if /use warnings;/;' \
 X		-e 's/^our\s+([\$$\@\%]\w+)/use vars qw($$1); $$1/;' \
 X		${WRKSRC}/lib/Filesys/DiskUsage.pm \
 X		${WRKSRC}/Makefile.PL
 X.endif
 X
 X.include <bsd.port.post.mk>
 END-of-p5-Filesys-DiskUsage/Makefile
 echo c - p5-Filesys-DiskUsage/files
 mkdir -p p5-Filesys-DiskUsage/files > /dev/null 2>&1
 echo x - p5-Filesys-DiskUsage/files/patch-aa
 sed 's/^X//' >p5-Filesys-DiskUsage/files/patch-aa << 'END-of-p5-Filesys-DiskUsage/files/patch-aa'
 X--- lib/Filesys/DiskUsage.pm.orig	Wed Jan 19 13:51:52 2005
 X+++ lib/Filesys/DiskUsage.pm	Wed Sep 21 15:02:35 2005
 X@@ -55,7 +55,7 @@
 X   # get a hash
 X   %sizes = du( { 'make-hash' => 1 }, @files_and_directories );
 X 
 X-=head1 FUNCTIONS
 X+=head1 DESCRIPTION
 X 
 X =head2 du
 X 
 X@@ -69,7 +69,7 @@
 X 
 X   $total = du(qw/file1 directory1/);
 X 
 X-=head3 OPTIONS
 X+=head2 OPTIONS
 X 
 X =over 6
 X 
 END-of-p5-Filesys-DiskUsage/files/patch-aa
 exit
 
 Thanks a lot!