ports/83395: Update port: devel/p5-Config-Objective

[Jim Pirzyk]

>Number:         83395
>Category:       ports
>Synopsis:       Update port: devel/p5-Config-Objective
>Confidential:   no
>Severity:       non-critical
>Priority:       medium
>Responsible:    freebsd-ports-bugs
>State:          open
>Quarter:        
>Keywords:       
>Date-Required:
>Class:          maintainer-update
>Submitter-Id:   current-users
>Arrival-Date:   Wed Jul 13 16:40:16 GMT 2005
>Closed-Date:
>Last-Modified:
>Originator:     Jim Pirzyk
>Release:        FreeBSD 5.4-STABLE i386
>Organization:
>Environment:
System: FreeBSD lilo.cites.uiuc.edu 5.4-STABLE FreeBSD 5.4-STABLE #9: Thu Jun 30 15:37:49 CDT 2005 root at lilo.cites.uiuc.edu:/usr/obj/usr/src/sys/LILO_KERNEL i386


	
>Description:
	Patch to allow more descriptive error messages.

>How-To-Repeat:
	
>Fix:

# 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:
#
#	devel/p5-Config-Objective/Makefile
#	devel/p5-Config-Objective/files
#	devel/p5-Config-Objective/files/patch-lib-Config-Objective.pm
#
echo x - devel/p5-Config-Objective/Makefile
sed 's/^X//' >devel/p5-Config-Objective/Makefile << 'END-of-devel/p5-Config-Objective/Makefile'
X# New ports collection makefile for:    Config-Objective
X# Date created:                         Mon Feb 16 15:50:34 CST 2004
X# Whom:                                 Jim Pirzyk <pirzyk at uiuc.edu>
X#
X# $FreeBSD: ports/devel/p5-Config-Objective/Makefile,v 1.2 2004/08/21 13:08:22 sem Exp $
X#
X
XPORTNAME=	Config-Objective
XPORTVERSION=	0.9.1
XPORTREVISION=	1
XCATEGORIES=	devel perl5
XMASTER_SITES=	${MASTER_SITE_PERL_CPAN}
XMASTER_SITE_SUBDIR=	Config
XPKGNAMEPREFIX=	p5-
X
XMAINTAINER=	pirzyk at uiuc.edu
XCOMMENT=	Configuration data as perl objects
X
XBUILD_DEPENDS=	${SITE_PERL}/Parse/Yapp.pm:${PORTSDIR}/devel/p5-Parse-Yapp \
X		${SITE_PERL}/Parse/Lex.pm:${PORTSDIR}/devel/p5-ParseLex
XRUN_DEPENDS=	${BUILD_DEPENDS}
X
XPERL_CONFIGURE=	YES
X
XMAN3=		Config::Objective::List.3 Config::Objective::Boolean.3 \
X		Config::Objective::Table.3 Config::Objective.3 \
X		Config::Objective::Hash.3 Config::Objective::Integer.3 \
X		Config::Objective::String.3 Config::Objective::DataType.3
X
X.include <bsd.port.pre.mk>
X
X.if ${PERL_LEVEL} < 500600
XIGNORE=		This port requires perl 5.6 or newer
X.endif
X
X.include <bsd.port.post.mk>
END-of-devel/p5-Config-Objective/Makefile
echo c - devel/p5-Config-Objective/files
mkdir -p devel/p5-Config-Objective/files > /dev/null 2>&1
echo x - devel/p5-Config-Objective/files/patch-lib-Config-Objective.pm
sed 's/^X//' >devel/p5-Config-Objective/files/patch-lib-Config-Objective.pm << 'END-of-devel/p5-Config-Objective/files/patch-lib-Config-Objective.pm'
X--- ./lib/Config/Objective.pm.sav	Wed Apr  6 19:24:00 2005
X+++ ./lib/Config/Objective.pm	Wed Apr  6 19:31:48 2005
X@@ -91,17 +91,21 @@
X 	$method = 'default'
X 		if (!defined($method));
X 
X-	$retval = eval { $self->{'objs'}->{$obj}->$method(@args); };
X-	if ($@)
X+	#
X+	# Trap and extend die and warn so we can tell the user where
X+	# we were when the signals were generated.
X+	#
X+	if (@{$self->{'lexer_stack'}})
X 	{
X-		if (@{$self->{'lexer_stack'}})
X-		{
X-			$line = $self->{'lexer_stack'}->[-1]->line;
X-			$msg = "$self->{'file_stack'}->[-1]:$line: ";
X-		}
X-		$msg .= "$obj";
X-		die "$msg: $@";
X+		$line = $self->{'lexer_stack'}->[-1]->line;
X+		$msg = "$self->{'file_stack'}->[-1]: line $line: ";
X 	}
X+	$msg .= $obj;
X+
X+	local $SIG{__DIE__} = sub { die "$msg: $_[0]"; };
X+	local $SIG{__WARN__} = sub { warn "$msg: $_[0]"; };
X+
X+	$retval = $self->{'objs'}->{$obj}->$method(@args);
X 
X #	print "<== _call_obj_method(): returning '"
X #		. (defined($retval) ? $retval : 'undef') . "'\n";
END-of-devel/p5-Config-Objective/files/patch-lib-Config-Objective.pm
exit

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