cvs commit: modperl-2.0/lib/ModPerl Code.pm

[stas]

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 = <<EOF;
   
   /*
  @@ -565,7 +569,7 @@
    * This file generated by $v
    * Any changes made here will be lost
    * ***********************************
  - */
  +$trace */
   
   EOF
   }