When generating inline_store code, don't weaken non-ref value on set

diff --git a/lib/Moose/Meta/Attribute.pm b/lib/Moose/Meta/Attribute.pm
index 640d1cc..342cbb6 100644 (file)
--- a/lib/Moose/Meta/Attribute.pm
+++ b/lib/Moose/Meta/Attribute.pm
@@ -587,7 +587,7 @@ sub inline_set {
         = $mi->inline_set_slot_value( $instance, $self->slots, $value ) . ";";
     $code
         .= $mi->inline_weaken_slot_value( $instance, $self->slots, $value )
-        . ";"
+        . "    if ref $value;"
         if $self->is_weak_ref;
 
     return $code;