diff options
| author | Yen-Ming Lee <leeym@FreeBSD.org> | 2005-07-20 01:25:05 +0000 |
|---|---|---|
| committer | Yen-Ming Lee <leeym@FreeBSD.org> | 2005-07-20 01:25:05 +0000 |
| commit | 319da4a7e523918a1b0a623e7fd9f8e0b61e32b5 (patch) | |
| tree | 931b107507e92a7ee2db9e45b17ccaf22dcc96c2 /devel | |
| parent | - Update to 5.46 (diff) | |
- allow more descriptive error messages
PR: 83395
Submitted by: Jim Pirzyk <pirzyk@freebsd.org>
Notes
Notes:
svn path=/head/; revision=139637
Diffstat (limited to 'devel')
| -rw-r--r-- | devel/p5-Config-Objective/Makefile | 2 | ||||
| -rw-r--r-- | devel/p5-Config-Objective/files/patch-lib-Config-Objective.pm | 33 |
2 files changed, 34 insertions, 1 deletions
diff --git a/devel/p5-Config-Objective/Makefile b/devel/p5-Config-Objective/Makefile index 44e6a8fc5df6..39ab315f28f3 100644 --- a/devel/p5-Config-Objective/Makefile +++ b/devel/p5-Config-Objective/Makefile @@ -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 @@ RUN_DEPENDS= ${BUILD_DEPENDS} 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 --git a/devel/p5-Config-Objective/files/patch-lib-Config-Objective.pm b/devel/p5-Config-Objective/files/patch-lib-Config-Objective.pm new file mode 100644 index 000000000000..842045f6a188 --- /dev/null +++ b/devel/p5-Config-Objective/files/patch-lib-Config-Objective.pm @@ -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"; |