You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2002/03/06 07:13:40 UTC
cvs commit: modperl-2.0/lib/ModPerl TypeMap.pm
stas 02/03/05 22:13:39
Modified: lib/ModPerl TypeMap.pm
Log:
- better diagnostics when the typemap conversion fails
Revision Changes Path
1.14 +5 -1 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.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- TypeMap.pm 21 Feb 2002 01:40:03 -0000 1.13
+++ TypeMap.pm 6 Mar 2002 06:13:39 -0000 1.14
@@ -143,10 +143,14 @@
sub map_arg {
my($self, $arg) = @_;
+
+ my $map_type = $self->map_type($arg->{type});
+ die "unknown typemap: '$arg->{type}'" unless defined $map_type;
+
return {
name => $arg->{name},
default => $arg->{default},
- type => $self->map_type($arg->{type}),
+ type => $map_type,
rtype => $arg->{type},
}
}