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

[stas]

stas        2003/03/23 19:02:10

  Modified:    lib/ModPerl WrapXS.pm
  Log:
  generate exp/def files only on platforms that need them
  
  Revision  Changes    Path
  1.52      +2 -2      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.51
  retrieving revision 1.52
  diff -u -r1.51 -r1.52
  --- WrapXS.pm 24 Mar 2003 03:00:19 -0000      1.51
  +++ WrapXS.pm 24 Mar 2003 03:02:10 -0000      1.52
  @@ -691,8 +691,8 @@
   
       $self->get_functions;
       $self->get_structures;
  -    $self->write_export_file('exp'); #XXX if $^O eq 'aix'
  -    $self->write_export_file('def'); #XXX if $^O eq 'Win32'
  +    $self->write_export_file('exp') if Apache::Build::AIX;
  +    $self->write_export_file('def') if Apache::Build::WIN32;
   
       while (my($module, $functions) = each %{ $self->{XS} }) {
   #        my($root, $sub) = split '::', $module;