stas 2002/08/16 03:11:39 Modified: ModPerl-Registry/t/cgi-bin basic.pl closure.pl env.pl not_executable.pl require.pl special_blocks.pl Log: no need for \r\n, \n is just fine Revision Changes Path 1.2 +1 -1 modperl-2.0/ModPerl-Registry/t/cgi-bin/basic.pl Index: basic.pl =================================================================== RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/cgi-bin/basic.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -u -r1.1 -r1.2 --- basic.pl 9 Oct 2001 12:47:38 -0000 1.1 +++ basic.pl 16 Aug 2002 10:11:39 -0000 1.2 @@ -2,7 +2,7 @@ # test all the basic functionality -print "Content-type: text/plain\r\n\r\n"; +print "Content-type: text/plain\n\n"; print "ok"; __END__ 1.3 +1 -1 modperl-2.0/ModPerl-Registry/t/cgi-bin/closure.pl Index: closure.pl =================================================================== RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/cgi-bin/closure.pl,v retrieving revision 1.2 retrieving revision 1.3 diff -u -r1.2 -r1.3 --- closure.pl 15 Aug 2002 12:21:59 -0000 1.2 +++ closure.pl 16 Aug 2002 10:11:39 -0000 1.3 @@ -8,7 +8,7 @@ # should see it under ::Registry # should not see it under ::PerlRun -print "Content-type: text/plain\r\n\r\n"; +print "Content-type: text/plain\n\n"; # this is a closure (when compiled inside handler()): my $counter = 0; 1.2 +1 -1 modperl-2.0/ModPerl-Registry/t/cgi-bin/env.pl Index: env.pl =================================================================== RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/cgi-bin/env.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -u -r1.1 -r1.2 --- env.pl 9 Oct 2001 12:47:38 -0000 1.1 +++ env.pl 16 Aug 2002 10:11:39 -0000 1.2 @@ -1,6 +1,6 @@ # test env vars -print "Content-type: text/plain\r\n\r\n"; +print "Content-type: text/plain\n\n"; print exists $ENV{QUERY_STRING} && $ENV{QUERY_STRING}; __END__ 1.2 +1 -1 modperl-2.0/ModPerl-Registry/t/cgi-bin/not_executable.pl Index: not_executable.pl =================================================================== RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/cgi-bin/not_executable.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -u -r1.1 -r1.2 --- not_executable.pl 9 Oct 2001 12:47:38 -0000 1.1 +++ not_executable.pl 16 Aug 2002 10:11:39 -0000 1.2 @@ -2,7 +2,7 @@ # this test should return forbidden, since it should be not-executable -print "Content-type: text/plain\r\n\r\n"; +print "Content-type: text/plain\n\n"; print "ok"; __END__ 1.3 +1 -1 modperl-2.0/ModPerl-Registry/t/cgi-bin/require.pl Index: require.pl =================================================================== RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/cgi-bin/require.pl,v retrieving revision 1.2 retrieving revision 1.3 diff -u -r1.2 -r1.3 --- require.pl 14 May 2002 15:53:05 -0000 1.2 +++ require.pl 16 Aug 2002 10:11:39 -0000 1.3 @@ -1,6 +1,6 @@ # test the require -print "Content-type: text/plain\r\n\r\n"; +print "Content-type: text/plain\n\n"; # XXX: fixme! #use lib qw(.); 1.5 +1 -1 modperl-2.0/ModPerl-Registry/t/cgi-bin/special_blocks.pl Index: special_blocks.pl =================================================================== RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/cgi-bin/special_blocks.pl,v retrieving revision 1.4 retrieving revision 1.5 diff -u -r1.4 -r1.5 --- special_blocks.pl 16 Aug 2002 08:01:18 -0000 1.4 +++ special_blocks.pl 16 Aug 2002 10:11:39 -0000 1.5 @@ -10,7 +10,7 @@ $query = $ENV{QUERY_STRING}; } -print "Content-type: text/plain\r\n\r\n"; +print "Content-type: text/plain\n\n"; my $r = shift; our $test = $r->args || '';