Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Exception
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30229/OpenInteract2/Exception
Modified Files:
Parameter.pm
Log Message:
ensure invalid parameter messages get output properly (was serializing an arrayref before, not too helpful...)
Index: Parameter.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Exception/Parameter.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Parameter.pm 18 Feb 2004 05:25:28 -0000 1.5
--- Parameter.pm 28 Feb 2005 00:57:35 -0000 1.6
***************
*** 15,20 ****
my ( $self ) = @_;
my $failures = $self->parameter_fail;
! my $valid_msg = join( '; ', map { "$_: " . $failures->{ $_ } } keys %{ $failures } );
! return "One or more parameters were not valid: $valid_msg";
}
--- 15,26 ----
my ( $self ) = @_;
my $failures = $self->parameter_fail;
! my @errors = ();
! foreach my $field ( sort keys %{ $failures } ) {
! my $field_msg = ( ref $failures->{ $field } eq 'ARRAY' )
! ? join( '; ', @{ $failures->{ $field } } )
! : $failures->{ $field };
! push @errors, "$field: $field_msg";
! }
! return "One or more parameters were not valid: " . join( ' ;; ', @errors );
}
|
