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},
