[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