You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2003/05/14 04:50:34 UTC
cvs commit: modperl-2.0/lib/ModPerl WrapXS.pm
stas 2003/05/13 19:50:34
Modified: lib/ModPerl WrapXS.pm
Log:
use the new function Apache::TestTrace::trace_level() that abstract the
logic for figuring the current log level
Revision Changes Path
1.58 +1 -1 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.57
retrieving revision 1.58
diff -u -r1.57 -r1.58
--- WrapXS.pm 17 Apr 2003 01:19:55 -0000 1.57
+++ WrapXS.pm 14 May 2003 02:50:34 -0000 1.58
@@ -231,7 +231,7 @@
$self->{DIR} = 'WrapXS';
$self->{XS_DIR} = catdir fastcwd(), 'xs';
- my $verbose = $Apache::TestTrace::Level eq 'debug' ? 1 : 0;
+ my $verbose = Apache::TestTrace::trace_level() eq 'debug' ? 1 : 0;
if (-e $self->{DIR}) {
rmtree([$self->{DIR}], $verbose, 1);