Return-Path: Delivered-To: apmail-perl-modperl-cvs-archive@perl.apache.org Received: (qmail 20925 invoked by uid 500); 14 May 2003 02:50:36 -0000 Mailing-List: contact modperl-cvs-help@perl.apache.org; run by ezmlm Precedence: bulk list-help: list-unsubscribe: list-post: Reply-To: dev@perl.apache.org Delivered-To: mailing list modperl-cvs@perl.apache.org Received: (qmail 20914 invoked by uid 500); 14 May 2003 02:50:35 -0000 Delivered-To: apmail-modperl-2.0-cvs@apache.org Date: 14 May 2003 02:50:34 -0000 Message-ID: <20030514025034.57596.qmail@icarus.apache.org> From: stas@apache.org To: modperl-2.0-cvs@apache.org Subject: cvs commit: modperl-2.0/lib/ModPerl WrapXS.pm X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N 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);