ports/124295: [PATCH] ports-mgmt/p5-FreeBSD-Ports-INDEXhash: bug fix

[Yen-Ming Lee]

>Number:         124295
>Category:       ports
>Synopsis:       [PATCH] ports-mgmt/p5-FreeBSD-Ports-INDEXhash: bug fix
>Confidential:   no
>Severity:       non-critical
>Priority:       low
>Responsible:    freebsd-ports-bugs
>State:          open
>Quarter:        
>Keywords:       
>Date-Required:
>Class:          change-request
>Submitter-Id:   current-users
>Arrival-Date:   Thu Jun 05 08:20:02 UTC 2008
>Closed-Date:
>Last-Modified:
>Originator:     Yen-Ming Lee
>Release:        FreeBSD 7.0-RELEASE i386
>Organization:
>Environment:
System: FreeBSD cn1.leeym.com 7.0-RELEASE FreeBSD 7.0-RELEASE #0: Sun Feb 24 19:59:52 UTC 2008
>Description:
- fix bug about newline in Fdeps, and also missing Rdeps and Edeps
- add WWW in pkg-desc
- bump PORTREVISION

Added file(s):
- files/patch-lib__FreeBSD__Ports__INDEXhash.pm

Port maintainer (vvelox at vvelox.net) is cc'd.

Generated with FreeBSD Port Tools 0.77
>How-To-Repeat:
>Fix:

--- p5-FreeBSD-Ports-INDEXhash-1.0.4_1.patch begins here ---
Index: Makefile
===================================================================
RCS file: /home/pcvs/ports/ports-mgmt/p5-FreeBSD-Ports-INDEXhash/Makefile,v
retrieving revision 1.1
diff -u -d -b -w -u -r1.1 Makefile
--- Makefile	6 May 2008 12:37:58 -0000	1.1
+++ Makefile	5 Jun 2008 08:15:21 -0000
@@ -7,6 +7,7 @@
 
 PORTNAME=	FreeBSD-Ports-INDEXhash
 PORTVERSION=	1.0.4
+PORTREVISION=	1
 CATEGORIES=	ports-mgmt sysutils perl5
 MASTER_SITES=	CPAN
 PKGNAMEPREFIX=	p5-
@@ -19,4 +20,7 @@
 
 MAN3=		FreeBSD::Ports::INDEXhash.3
 
+post-patch:
+	${FIND} ${WRKSRC} -name "*.orig" -delete
+
 .include <bsd.port.mk>
Index: pkg-descr
===================================================================
RCS file: /home/pcvs/ports/ports-mgmt/p5-FreeBSD-Ports-INDEXhash/pkg-descr,v
retrieving revision 1.1
diff -u -d -b -w -u -r1.1 pkg-descr
--- pkg-descr	6 May 2008 12:37:58 -0000	1.1
+++ pkg-descr	5 Jun 2008 08:15:21 -0000
@@ -1 +1,3 @@
 This takes the FreeBSD port's index file and makes it into a easy to use hash.
+
+WWW: http://search.cpan.org/dist/FreeBSD-Ports-INDEXhash/
Index: files/patch-lib__FreeBSD__Ports__INDEXhash.pm
===================================================================
RCS file: files/patch-lib__FreeBSD__Ports__INDEXhash.pm
diff -N files/patch-lib__FreeBSD__Ports__INDEXhash.pm
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ files/patch-lib__FreeBSD__Ports__INDEXhash.pm	5 Jun 2008 08:15:21 -0000
@@ -0,0 +1,65 @@
+--- lib/FreeBSD/Ports/INDEXhash.pm.orig	2008-04-18 15:46:06.000000000 -0700
++++ lib/FreeBSD/Ports/INDEXhash.pm	2008-06-05 01:09:57.000000000 -0700
+@@ -93,6 +93,7 @@
+ 	
+ 	my $rawindexInt=0;
+ 	while(defined($rawindex[$rawindexInt])){
++		chomp($rawindex[$rawindexInt]);
+ 		my @linesplit=split(/\|/, $rawindex[$rawindexInt]);
+ 
+ 		$hash{$linesplit[0]}={path=>$linesplit[1],
+@@ -110,7 +111,7 @@
+ 
+ 		my $depsInt=0;
+ 
+-		my @Fdeps=split(/ /, $linesplit[12]);		
++		my @Fdeps=split(/ /, $linesplit[12]) if $linesplit[12];
+ 		while(defined($Fdeps[$depsInt])){
+ 			push(@{$hash{$linesplit[0]}{Fdeps}}, $Fdeps[$depsInt]);
+ 			
+@@ -119,7 +120,7 @@
+ 
+ 
+ 		$depsInt=0;
+-		my @Pdeps=split(/ /, $linesplit[11]);
++		my @Pdeps=split(/ /, $linesplit[11]) if $linesplit[11];
+ 		while(defined($Pdeps[$depsInt])){
+ 			push(@{$hash{$linesplit[0]}{Pdeps}}, $Pdeps[$depsInt]);
+ 
+@@ -127,22 +128,22 @@
+ 		};
+ 
+ 		$depsInt=0;
+-		my @Edeps=split(/ /, $linesplit[10]);
++		my @Edeps=split(/ /, $linesplit[10]) if $linesplit[10];
+ 		while(defined($Edeps[$depsInt])){
+-			push(@{$hash{$linesplit[0]}{Edeps}}, $Pdeps[$depsInt]);
++			push(@{$hash{$linesplit[0]}{Edeps}}, $Edeps[$depsInt]);
+ 
+ 			$depsInt++;
+ 		};
+ 
+-		my @Rdeps=split(/ /, $linesplit[8]);
+-		while(defined($Edeps[$depsInt])){
++		my @Rdeps=split(/ /, $linesplit[8]) if $linesplit[8];
++		while(defined($Rdeps[$depsInt])){
+ 			push(@{$hash{$linesplit[0]}{Rdeps}}, $Rdeps[$depsInt]);
+ 
+ 			$depsInt++;
+ 		};
+ 
+ 		$depsInt=0;
+-		my @Bdeps=split(/ /, $linesplit[7]);
++		my @Bdeps=split(/ /, $linesplit[7]) if $linesplit[7];
+ 		while(defined($Bdeps[$depsInt])){
+ 			push(@{$hash{$linesplit[0]}{Bdeps}}, $Bdeps[$depsInt]);
+ 
+@@ -150,7 +151,7 @@
+ 		};
+ 
+ 		$depsInt=0;
+-		my @categories=split(/ /, $linesplit[6]);
++		my @categories=split(/ /, $linesplit[6]) if $linesplit[6];
+ 		while(defined($categories[$depsInt])){
+ 			push(@{$hash{$linesplit[0]}{categories}}, $categories[$depsInt]);
+ 
--- p5-FreeBSD-Ports-INDEXhash-1.0.4_1.patch ends here ---

>Release-Note:
>Audit-Trail:
>Unformatted: