Mailing-List: contact modperl-cvs-help@perl.apache.org; run by ezmlm
Precedence: bulk
Reply-To: dev@perl.apache.org
Date: 6 Dec 2002 02:11:17 -0000
Message-ID: <20021206021117.84825.qmail@icarus.apache.org>
From: stas@apache.org
To: modperl-2.0-cvs@apache.org
Subject: cvs commit: modperl-2.0/t/response/TestDirective perlloadmodule2.pm

stas        2002/12/05 18:11:17

  Modified:    t/response/TestDirective perlloadmodule2.pm
  Log:
  comment out the debug warnings
  
  Revision  Changes    Path
  1.3       +3 -3      modperl-2.0/t/response/TestDirective/perlloadmodule2.pm
  
  Index: perlloadmodule2.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestDirective/perlloadmodule2.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- perlloadmodule2.pm	5 Dec 2002 04:56:15 -0000	1.2
  +++ perlloadmodule2.pm	6 Dec 2002 02:11:17 -0000	1.3
  @@ -39,13 +39,13 @@
   
   sub DIR_MERGE {
       my $class = ref $_[0];
  -    warn "$class->DIR_MERGE\n";
  +    #warn "$class->DIR_MERGE\n";
       merge(@_);
   }
   
   sub SERVER_MERGE {
       my $class = ref $_[0];
  -    warn "$class->SERVER_MERGE\n";
  +    #warn "$class->SERVER_MERGE\n";
       merge(@_);
   }
   
  @@ -57,7 +57,7 @@
   # .htaccess files
   sub MyMergeTest {
       my($self, $parms, $arg) = @_;
  -    warn "MyMergeTest: @{[$parms->path||'']}\n\t$arg\n";
  +    #warn "MyMergeTest: @{[$parms->path||'']}\n\t$arg\n";
       push @{ $self->{MyMergeTest} }, $arg;
   
       # store the top level srv values in the server struct as well, so