perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/lib/Apache Build.pm
Date Sun, 12 May 2002 21:02:15 GMT
dougm       02/05/12 14:02:15

  Modified:    lib/Apache Build.pm
  Log:
  use proper debug flags for win32/msvc
  
  Revision  Changes    Path
  1.82      +6 -1      modperl-2.0/lib/Apache/Build.pm
  
  Index: Build.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/Apache/Build.pm,v
  retrieving revision 1.81
  retrieving revision 1.82
  diff -u -r1.81 -r1.82
  --- Build.pm	12 May 2002 19:09:54 -0000	1.81
  +++ Build.pm	12 May 2002 21:02:15 -0000	1.82
  @@ -19,6 +19,8 @@
       $Config{useithreads} && ($Config{useithreads} eq 'define');
   
   use constant WIN32 => $^O eq 'MSWin32';
  +use constant MSVC  => WIN32() && ($Config{cc} eq 'cl');
  +
   use constant IS_MOD_PERL_BUILD => grep { -e "$_/lib/mod_perl.pm" } qw(. ..);
   
   our $VERSION = '0.01';
  @@ -180,7 +182,10 @@
   
       if ($self->{MP_DEBUG}) {
           $self->{MP_TRACE} = 1;
  -        $ccopts .= " -g -DMP_DEBUG";
  +        my $win32_flags = MSVC  ? '-Od -MD -Zi' : '';
  +        my $debug_flags = WIN32 ? $win32_flags : '-g';
  +        $ccopts .= " $debug_flags" unless $Config{optimize} =~ /$debug_flags/;
  +        $ccopts .= ' -DMP_DEBUG';
       }
   
       if ($self->{MP_CCOPTS}) {
  
  
  

Mime
View raw message