cvs commit: modperl-2.0/lib/ModPerl TypeMap.pm

[stas]

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