cvs commit: modperl-2.0/t/directive setupenv.t

[dougm]

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";