fix overload-coderefs test
Graham Knop [Thu, 18 Apr 2013 19:57:49 +0000 (15:57 -0400)]
t/overloaded-coderefs.t

index c4b1d6b..5e59ae8 100644 (file)
@@ -9,7 +9,8 @@ use Test::More;
                fallback => 1;
        sub new {
                my $class = shift;
-               bless \$_[0], $class;
+               my $code = shift;
+               bless \$code, $class;
        }
        sub to_code {
                my $self = shift;