X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FClass.pm;h=3b0dc311eed46c40e4cac859015aea9d4ece43a2;hb=cb6a9721f6d1bf6aaba58920378aad6c03524639;hp=80f7af7499e41c6374f643dd9e51a20a5fb71547;hpb=d72533cb68542eef3df6ce184b537090dde1b74d;p=gitmo%2FMouse.git diff --git a/lib/Mouse/Meta/Class.pm b/lib/Mouse/Meta/Class.pm index 80f7af7..3b0dc31 100644 --- a/lib/Mouse/Meta/Class.pm +++ b/lib/Mouse/Meta/Class.pm @@ -238,7 +238,7 @@ sub clone_object { || $class->throw_error("You must pass an instance of the metaclass (" . $class->name . "), not ($object)"); my $cloned = bless { %$object }, ref $object; - $class->_initialize_object($cloned, $args); + $class->_initialize_object($cloned, $args, 1); return $cloned; }