stas 02/03/11 02:29:44 Modified: lib/ModPerl TypeMap.pm Log: - check return value of map_type and die if undef, otherwise were getting 'odd number of elements in hash' error. Revision Changes Path 1.15 +6 -2 modperl-2.0/lib/ModPerl/TypeMap.pm Index: TypeMap.pm =================================================================== RCS file: /home/cvs/modperl-2.0/lib/ModPerl/TypeMap.pm,v retrieving revision 1.14 retrieving revision 1.15 diff -u -r1.14 -r1.15 --- TypeMap.pm 6 Mar 2002 06:13:39 -0000 1.14 +++ TypeMap.pm 11 Mar 2002 10:29:44 -0000 1.15 @@ -223,10 +223,14 @@ return unless $self->can_map($map, $func->{return_type}, map $_->{type}, @{ $func->{args} }); + + my $type = $map->{return_type} || $func->{return_type} || 'void'; + my $map_type = $self->map_type($type); + die "unknown typemap: '$type'" unless defined $map_type; + my $mf = { name => $func->{name}, - return_type => $self->map_type($map->{return_type} || - $func->{return_type} || 'void'), + return_type => $map_type, args => $self->map_args($func), perl_name => $map->{name}, thx => $func->{thx},