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