Date: Thu, 14 Jul 2005 19:40:13 GMT From: Jim Pirzyk <pirzyk@freebsd.org> To: freebsd-ports-bugs@FreeBSD.org Subject: Re: ports/83395: Update port: devel/p5-Config-Objective Message-ID: <200507141940.j6EJeDS3059251@freefall.freebsd.org>
next in thread | raw e-mail | index | archive | help
The following reply was made to PR ports/83395; it has been noted by GNATS.
From: Jim Pirzyk <pirzyk@freebsd.org>
To: pirzyk@freebsd.org, bug-followup@freebsd.org
Cc:
Subject: Re: ports/83395: Update port: devel/p5-Config-Objective
Date: Thu, 14 Jul 2005 14:32:40 -0500
--Apple-Mail-2--819043631
Content-Type: multipart/mixed; boundary=Apple-Mail-1--819043652
--Apple-Mail-1--819043652
Content-Transfer-Encoding: 7bit
Content-Type: application/octet-stream;
x-unix-mode=0644;
name="p5-Config-Objective.patch"
Content-Disposition: attachment;
filename=p5-Config-Objective.patch
diff -Nru ./devel/p5-Config-Objective/Makefile.orig ./devel/p5-Config-Objective/Makefile
--- Makefile.orig Sat Aug 21 08:08:22 2004
+++ Makefile Wed Jul 13 10:10:07 2005
@@ -7,6 +7,7 @@
PORTNAME= Config-Objective
PORTVERSION= 0.9.1
+PORTREVISION= 1
CATEGORIES= devel perl5
MASTER_SITES= ${MASTER_SITE_PERL_CPAN}
MASTER_SITE_SUBDIR= Config
@@ -21,7 +22,6 @@
PERL_CONFIGURE= YES
-MAN3PREFIX= ${PREFIX}/lib/perl5/${PERL_VERSION}
MAN3= Config::Objective::List.3 Config::Objective::Boolean.3 \
Config::Objective::Table.3 Config::Objective.3 \
Config::Objective::Hash.3 Config::Objective::Integer.3 \
diff -Nru ./devel/p5-Config-Objective/files/patch-lib-Config-Objective.pm.orig ./devel/p5-Config-Objective/files/patch-lib-Config-Objective.pm
--- files/patch-lib-Config-Objective.pm.orig Thu Jul 14 13:13:40 2005
+++ files/patch-lib-Config-Objective.pm Wed Jul 13 10:07:19 2005
@@ -0,0 +1,33 @@
+--- ./lib/Config/Objective.pm.sav Wed Apr 6 19:24:00 2005
++++ ./lib/Config/Objective.pm Wed Apr 6 19:31:48 2005
+@@ -91,17 +91,21 @@
+ $method = 'default'
+ if (!defined($method));
+
+- $retval = eval { $self->{'objs'}->{$obj}->$method(@args); };
+- if ($@)
++ #
++ # Trap and extend die and warn so we can tell the user where
++ # we were when the signals were generated.
++ #
++ if (@{$self->{'lexer_stack'}})
+ {
+- if (@{$self->{'lexer_stack'}})
+- {
+- $line = $self->{'lexer_stack'}->[-1]->line;
+- $msg = "$self->{'file_stack'}->[-1]:$line: ";
+- }
+- $msg .= "$obj";
+- die "$msg: $@";
++ $line = $self->{'lexer_stack'}->[-1]->line;
++ $msg = "$self->{'file_stack'}->[-1]: line $line: ";
+ }
++ $msg .= $obj;
++
++ local $SIG{__DIE__} = sub { die "$msg: $_[0]"; };
++ local $SIG{__WARN__} = sub { warn "$msg: $_[0]"; };
++
++ $retval = $self->{'objs'}->{$obj}->$method(@args);
+
+ # print "<== _call_obj_method(): returning '"
+ # . (defined($retval) ? $retval : 'undef') . "'\n";
--Apple-Mail-1--819043652
Content-Transfer-Encoding: 7bit
Content-Type: text/plain;
charset=US-ASCII;
format=flowed
--- @(#) $Id: dot.signature,v 1.14 2004/02/03 02:46:26 pirzyk Exp $
__o pirzyk@uiuc.edu --------------------------- jim@pirzyk.org
_'\<,_ Systems Management Group, CITES
(*)/ (*) University of Illinois at Urbana-Champaign
--Apple-Mail-1--819043652--
--Apple-Mail-2--819043631
content-type: application/pgp-signature; x-mac-type=70674453;
name=PGP.sig
content-description: This is a digitally signed message part
content-disposition: inline; filename=PGP.sig
content-transfer-encoding: 7bit
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.1 (Darwin)
iD8DBQFC1r3d2EYx0U4j2soRAvcBAJ9TMa909RwhNAXTHPNG++z2dsQO7ACbBhrS
98lfaWwRPrxA05IMCoq/Yok=
=rSDN
-----END PGP SIGNATURE-----
--Apple-Mail-2--819043631--
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?200507141940.j6EJeDS3059251>