From: Stevan Little Date: Wed, 28 Nov 2007 22:39:21 +0000 (+0000) Subject: some basic cleanup X-Git-Tag: 0_32~4 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2c78d8110cb935f2fdc5086c5d327907a2c5c4f9;p=gitmo%2FMoose.git some basic cleanup --- diff --git a/lib/Moose/Meta/Attribute.pm b/lib/Moose/Meta/Attribute.pm index 9dbc1c2..79304b6 100644 --- a/lib/Moose/Meta/Attribute.pm +++ b/lib/Moose/Meta/Attribute.pm @@ -206,7 +206,7 @@ sub initialize_instance_slot { my $value_is_set; if (exists $params->{$init_arg}) { $val = $params->{$init_arg}; - $value_is_set = 1; + $value_is_set = 1; } else { # skip it if it's lazy diff --git a/t/040_type_constraints/017_subtyping_union_types.t b/t/040_type_constraints/017_subtyping_union_types.t index 1063379..22dec83 100644 --- a/t/040_type_constraints/017_subtyping_union_types.t +++ b/t/040_type_constraints/017_subtyping_union_types.t @@ -3,7 +3,7 @@ use strict; use warnings; -use Test::More tests => 18; +use Test::More tests => 21; use Test::Exception; BEGIN {