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

[gozer]

gozer       2004/09/20 22:54:57

  Modified:    lib/ModPerl WrapXS.pm
  Log:
  Small refactoring. Move C::Scan fixup for static __inline__ functions
  mishaps to func_is_static.
  
  Revision  Changes    Path
  1.79      +4 -3      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.78
  retrieving revision 1.79
  diff -u -r1.78 -r1.79
  --- WrapXS.pm 10 Jul 2004 00:36:19 -0000      1.78
  +++ WrapXS.pm 21 Sep 2004 05:54:56 -0000      1.79
  @@ -1150,6 +1150,10 @@
       if (my $attr = $entry->{attr}) {
           return 1 if grep { $_ eq 'static' } @$attr;
       }
  +    
  +    #C::Scan doesnt always pickup static __inline__
  +    return 1 if $entry->{name} =~ /^mpxs_/o;
  +    
       return 0;
   }
   
  @@ -1231,9 +1235,6 @@
           for my $entry (@$table) {
               next if $self->func_is_static($entry);
               my $name = $entry->{name};
  -
  -            #C::Scan doesnt always pickup static __inline__
  -            next if $name =~ /^mpxs_/o;
   
               my $fh = $self->export_func_handle($entry, $handles);