Return-Path: Delivered-To: apmail-modperl-cvs-archive@apache.org Received: (qmail 94053 invoked by uid 500); 20 Sep 2001 06:14:08 -0000 Mailing-List: contact modperl-cvs-help@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@apache.org Received: (qmail 94042 invoked by uid 500); 20 Sep 2001 06:14:08 -0000 Delivered-To: apmail-modperl-2.0-cvs@apache.org Date: 20 Sep 2001 06:07:48 -0000 Message-ID: <20010920060748.74070.qmail@icarus.apache.org> From: stas@apache.org To: modperl-2.0-cvs@apache.org Subject: cvs commit: modperl-2.0/lib/ModPerl Code.pm X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N stas 01/09/19 23:07:48 Modified: lib/ModPerl Code.pm Log: adding the generator calls trace ala Apache::TestConfig::genwarning Revision Changes Path 1.68 +5 -1 modperl-2.0/lib/ModPerl/Code.pm Index: Code.pm =================================================================== RCS file: /home/cvs/modperl-2.0/lib/ModPerl/Code.pm,v retrieving revision 1.67 retrieving revision 1.68 diff -u -r1.67 -r1.68 --- Code.pm 2001/09/17 23:36:35 1.67 +++ Code.pm 2001/09/20 06:07:48 1.68 @@ -5,6 +5,8 @@ use mod_perl (); use Apache::Build (); +use Apache::TestConfig (); + our $VERSION = '0.01'; our @ISA = qw(Apache::Build); @@ -558,6 +560,8 @@ my $warning = \$warnings{C}->{$class}; return $$warning if $$warning; my $v = join '/', $class, $class->VERSION; + my $trace = Apache::TestConfig::calls_trace(); + $trace =~ s/^/ * /mg; $$warning = <