cvs commit: modperl-2.0/t/response/TestDirective perlloadmodule.pm

[stas]

stas        2004/11/12 14:05:15

  Modified:    t/response/TestDirective perlloadmodule.pm
  Log:
  hide the remaining debug prints
  
  Revision  Changes    Path
  1.9       +4 -3      modperl-2.0/t/response/TestDirective/perlloadmodule.pm
  
  Index: perlloadmodule.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestDirective/perlloadmodule.pm,v
  retrieving revision 1.8
  retrieving revision 1.9
  diff -u -u -r1.8 -r1.9
  --- perlloadmodule.pm 11 Nov 2004 07:51:03 -0000      1.8
  +++ perlloadmodule.pm 12 Nov 2004 22:05:15 -0000      1.9
  @@ -5,6 +5,7 @@
   
   use Apache::Test;
   use Apache::TestUtil;
  +use Apache::TestTrace;
   
   use Apache::Const -compile => qw(OK OR_ALL RSRC_CONF TAKE1 TAKE23);
   
  @@ -54,19 +55,19 @@
   
   sub DIR_MERGE {
       my $class = ref $_[0];
  -    warn "$class->DIR_MERGE\n";
  +    debug "$class->DIR_MERGE\n";
       merge(@_);
   }
   
   #sub SERVER_MERGE {
   #    my $class = ref $_[0];
  -#    warn "$class->SERVER_MERGE\n";
  +#    debug "$class->SERVER_MERGE\n";
   #    merge(@_);
   #}
   
   sub SERVER_CREATE {
       my($class, $parms) = @_;
  -#   warn "$class->SERVER_CREATE\n";
  +    debug "$class->SERVER_CREATE\n";
       return bless {
        name => __PACKAGE__,
       }, $class;