[libcatmandu-perl] 01/85: Fixed Bind as instance bug

[Jonas Smedegaard]

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 65566d7713ae9060ab1cc0a31140cdf4a4c84536
Author: Patrick Hochstenbach <patrick.hochstenbach at ugent.be>
Date:   Wed May 7 17:27:31 2014 +0200

    Fixed Bind as instance bug
---
 lib/Catmandu/Fix.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Catmandu/Fix.pm b/lib/Catmandu/Fix.pm
index d20dfed..90ec2b3 100644
--- a/lib/Catmandu/Fix.pm
+++ b/lib/Catmandu/Fix.pm
@@ -198,7 +198,7 @@ sub emit_bind {
         for my $pair (@$code) { 
             my $name = $pair->[0];
             my $code = $pair->[1]; 
-            $perl .= "${bind_var} = ${bind_var}->bind(${unit}, sub {";
+            $perl .= "${var} = ${bind_var}->bind(${unit}, sub {";
             $perl .= "${var} = shift;";
             $perl .= $code;
             $perl .= "${var}";

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcatmandu-perl.git