--- trunk/lib/Frey/Run.pm 2008/11/05 08:20:54 281 +++ trunk/lib/Frey/Run.pm 2008/11/05 08:20:57 285 @@ -39,14 +39,14 @@ my @required = grep { - defined $_ && !defined( $self->params->{$_} ) + defined $_ && $_->can('name') && !defined( $self->params->{ $_->name } ) } map { my $attr = $class->meta->get_attribute($_); - $attr->is_required && $_ + $attr->is_required && $attr; } $class->meta->get_attribute_list; - warn "## required = ",dump( @required ), " for $class"; + warn "## required = ",dump( map { $_->name } @required ), " for $class"; my $html; my $values = {}; @@ -54,9 +54,14 @@ if ( @required ) { $html = qq|