perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/t/directive setupenv.t
Date Mon, 19 Nov 2001 18:23:20 GMT
dougm       01/11/19 10:23:20

  Modified:    t/directive setupenv.t
  Log:
  remove debug prints (-d lwp gives plenty)
  
  Revision  Changes    Path
  1.2       +1 -3      modperl-2.0/t/directive/setupenv.t
  
  Index: setupenv.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/directive/setupenv.t,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- setupenv.t	2001/11/19 00:14:53	1.1
  +++ setupenv.t	2001/11/19 18:23:20	1.2
  @@ -12,7 +12,7 @@
   my $env = GET_BODY $location;
   
   ok $env;
  -print $env;
  +
   my %env;
   
   for my $line (split /\n/, $env) {
  @@ -20,8 +20,6 @@
       my($key, $val) = split /=/, $line, 2;
       $env{$key} = $val || '';
   }
  -use Data::Dumper;
  -print Dumper \%env;
   
   ok t_cmp $location, $env{REQUEST_URI}, "testing REQUEST_URI";
   
  
  
  

Mime
View raw message