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}) {