X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fcurry.pm;fp=lib%2Fcurry.pm;h=9fd65593e535109a0fff091b9773a5292d119e3f;hb=0f8925b5cf64ff572abdf929e9560cda65608aa1;hp=1a9c237dfd1bf8197536efefd8d67c876a3a3093;hpb=132d8b361b55e7dedb1466ca314cecb142419f35;p=p5sagit%2Fcurry.git

diff --git a/lib/curry.pm b/lib/curry.pm
index 1a9c237..9fd6559 100644
--- a/lib/curry.pm
+++ b/lib/curry.pm
@@ -24,7 +24,7 @@ use Scalar::Util ();
 
 $curry::weak = sub {
   my ($invocant, $code) = splice @_, 0, 2;
-  Scalar::Util::weaken($invocant) if Scalar::Util::blessed($invocant);
+  Scalar::Util::weaken($invocant) if length ref $invocant;
   my @args = @_;
   sub {
     return unless defined $invocant;
@@ -34,7 +34,7 @@ $curry::weak = sub {
 
 sub AUTOLOAD {
   my $invocant = shift;
-  Scalar::Util::weaken($invocant) if Scalar::Util::blessed($invocant);
+  Scalar::Util::weaken($invocant) if length ref $invocant;
   my ($method) = our $AUTOLOAD =~ /^curry::weak::(.+)$/;
   my @args = @_;
   return sub {