[libcatmandu-perl] 55/85: Fixing documentation
Jonas Smedegaard
dr at jones.dk
Tue May 20 09:56:19 UTC 2014
This is an automated email from the git hooks/post-receive script.
js pushed a commit to tag 0.91
in repository libcatmandu-perl.
commit 1490cc3e384b6f502e72bf0facc42efd52f889c1
Author: Patrick Hochstenbach <patrick.hochstenbach at ugent.be>
Date: Fri May 16 13:56:42 2014 +0200
Fixing documentation
---
lib/Catmandu/Fix.pm | 1 -
lib/Catmandu/Fix/Bind/list.pm | 2 +-
lib/Catmandu/Fix/Bind/maybe.pm | 5 +----
3 files changed, 2 insertions(+), 6 deletions(-)
diff --git a/lib/Catmandu/Fix.pm b/lib/Catmandu/Fix.pm
index 72c9652..dc88e11 100644
--- a/lib/Catmandu/Fix.pm
+++ b/lib/Catmandu/Fix.pm
@@ -176,7 +176,6 @@ sub emit_fixes {
sub emit_reject {
my ($self) = @_;
- my $reject_var = $self->_reject_var;
"goto __FIX_REJECT__;";
}
diff --git a/lib/Catmandu/Fix/Bind/list.pm b/lib/Catmandu/Fix/Bind/list.pm
index 65be6cf..2236aa4 100644
--- a/lib/Catmandu/Fix/Bind/list.pm
+++ b/lib/Catmandu/Fix/Bind/list.pm
@@ -45,7 +45,7 @@ sub concat {
=head1 NAME
-Catmandu::Fix::Bind::maybe - a binder that computes Fix-es for every element in a list
+Catmandu::Fix::Bind::list - a binder that computes Fix-es for every element in a list
=head1 SYNOPSIS
diff --git a/lib/Catmandu/Fix/Bind/maybe.pm b/lib/Catmandu/Fix/Bind/maybe.pm
index d1afab5..22c59bf 100644
--- a/lib/Catmandu/Fix/Bind/maybe.pm
+++ b/lib/Catmandu/Fix/Bind/maybe.pm
@@ -52,9 +52,6 @@ sub bind {
};
if ($@) {
- die $@;
- }
- elsif ($@) {
return $self->nothing;
}
@@ -73,7 +70,7 @@ sub result {
=head1 NAME
-Catmandu::Fix::Bind::maybe - a binder that skips fixes if one returns undef
+Catmandu::Fix::Bind::maybe - a binder that skips fixes if one returns undef or dies
=head1 SYNOPSIS
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcatmandu-perl.git
More information about the Pkg-perl-cvs-commits
mailing list