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

[dougm]

dougm       01/05/02 21:35:45

  Modified:    lib/ModPerl TypeMap.pm
  Log:
  assume void return type if not defined
  
  Revision  Changes    Path
  1.7       +1 -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.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- TypeMap.pm        2001/04/28 22:35:18     1.6
  +++ TypeMap.pm        2001/05/03 04:35:44     1.7
  @@ -205,7 +205,7 @@
       my $mf = {
          name        => $func->{name},
          return_type => $self->map_type($map->{return_type} ||
  -                                      $func->{return_type}),
  +                                      $func->{return_type} || 'void'),
          args        => $self->map_args($func),
          perl_name   => $map->{name},
       };