this patch adds the calls trace just like the Apache-Test package does.
So now we can see something like:
/*
* *********** WARNING **************
* This file generated by ModPerl::WrapXS/0.01
* Any changes made here will be lost
* ***********************************
* 1. lib/ModPerl/WrapXS.pm:32
* 2. Makefile.PL:120
* 3. Makefile.PL:82
* 4. Makefile.PL:20
*/
and easily find who has created the file.
Index: lib/ModPerl/Code.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/lib/ModPerl/Code.pm,v
retrieving revision 1.67
diff -u -r1.67 Code.pm
--- lib/ModPerl/Code.pm 2001/09/17 23:36:35 1.67
+++ lib/ModPerl/Code.pm 2001/09/19 15:31:59
@@ -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 = <<EOF;
/*
@@ -565,7 +569,7 @@
* This file generated by $v
* Any changes made here will be lost
* ***********************************
- */
+$trace */
EOF
}
_____________________________________________________________________
Stas Bekman JAm_pH -- Just Another mod_perl Hacker
http://stason.org/ mod_perl Guide http://perl.apache.org/guide
mailto:[EMAIL PROTECTED] http://apachetoday.com http://eXtropia.com/
http://singlesheaven.com http://perl.apache.org http://perlmonth.com/
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
