Date: Wed, 13 Jul 2005 11:31:22 -0500 (CDT) From: Jim Pirzyk <pirzyk@FreeBSD.org> To: FreeBSD-gnats-submit@FreeBSD.org Subject: ports/83395: Update port: devel/p5-Config-Objective Message-ID: <200507131631.j6DGVMA9057847@lilo.cites.uiuc.edu> Resent-Message-ID: <200507131640.j6DGeGFb086009@freefall.freebsd.org>
next in thread | raw e-mail | index | archive | help
>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@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@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@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:
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?200507131631.j6DGVMA9057847>