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

[dougm]

dougm       01/11/28 09:00:00

  Modified:    lib/ModPerl WrapXS.pm
  Log:
  fix for modules with only MPXS_ functions
  
  Revision  Changes    Path
  1.35      +2 -0      modperl-2.0/lib/ModPerl/WrapXS.pm
  
  Index: WrapXS.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/ModPerl/WrapXS.pm,v
  retrieving revision 1.34
  retrieving revision 1.35
  diff -u -r1.34 -r1.35
  --- WrapXS.pm 2001/11/07 03:14:54     1.34
  +++ WrapXS.pm 2001/11/28 17:00:00     1.35
  @@ -65,6 +65,8 @@
           my($name, $module, $class, $args) =
             @{ $func } { qw(perl_name module class args) };
   
  +        $self->{XS}->{ $module } ||= [];
  +
           #eg ap_fputs()
           if ($name =~ s/^DEFINE_//) {
               $func->{name} =~ s/^DEFINE_//;