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 acadd409629e8a1cbe3a3d49cb8cc35beeda99f4 Author: Patrick Hochstenbach <patrick.hochstenb...@ugent.be> Date: Thu May 8 09:31:04 2014 +0200 Experimenting with nested binds --- lib/Catmandu/Fix/Bind.pm | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/lib/Catmandu/Fix/Bind.pm b/lib/Catmandu/Fix/Bind.pm index 6ea77ea..692c1b2 100644 --- a/lib/Catmandu/Fix/Bind.pm +++ b/lib/Catmandu/Fix/Bind.pm @@ -21,12 +21,18 @@ sub bind { sub emit { my ($self, $fixer, $label) = @_; my $perl = ""; - - $fixer->binder([$self]); + + my $binder = $fixer->binder // []; + + push @$binder , $self; + $fixer->binder($binder); $perl .= $fixer->emit_fixes($self->fixes); - $fixer->binder(undef); + pop @$binder; + $binder = undef if (@$binder == 0); + + $fixer->binder($binder); $perl; } -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcatmandu-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits