X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fcurry.pm;fp=lib%2Fcurry.pm;h=f39fb0256b61ebd49c42f7cf315f6adb22ef2ddd;hb=ee6aa76393e612f4a893bc3a0f5fa8f7dafb68a4;hp=544013ec219585ae9d9be9e23b592b197e6e9589;hpb=cfc04a372f9abeabe532ef25c3fe0c188a0a5232;p=p5sagit%2Fcurry.git

diff --git a/lib/curry.pm b/lib/curry.pm
index 544013e..f39fb02 100644
--- 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;