On Wed, Sep 19, 2001 at 11:41:27PM +0800, Stas Bekman wrote:
> 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.
+1 +1 +1 +1 +1
;-)
>
> 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]
>
--
Philippe M. Chiasson <[EMAIL PROTECTED]>
Extropia's Resident System Guru
http://www.eXtropia.com/
You can solve any problem by adding a level of
indirection--except the problem of having too many levels
of indirection.
-- Larry Wall
perl -e '$$=\${gozer};{$_=unpack(P26,pack(L,$$));/^Just Another Perl
Hacker!\n$/&&print||$$++&&redo}'
PGP signature
