fix package name for curry::weak AUTOLOAD

[p5sagit/curry.git] / lib / curry.pm

diff --git a/lib/curry.pm b/lib/curry.pm
index 544013e..f39fb02 100644 (file)
--- a/lib/curry.pm
+++ b/lib/curry.pm
@@ -19,7 +19,7 @@ use Scalar::Util ();
 sub AUTOLOAD {
   my $invocant = shift;
   Scalar::Util::weaken($invocant) if Scalar::Util::blessed($invocant);
-  my ($method) = our $AUTOLOAD =~ /^curry::(.+)$/;
+  my ($method) = our $AUTOLOAD =~ /^curry::weak::(.+)$/;
   my @args = @_;
   return sub {
     return unless $invocant;