You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2002/08/16 12:11:40 UTC
cvs commit: modperl-2.0/ModPerl-Registry/t/cgi-bin basic.pl closure.pl env.pl not_executable.pl require.pl special_blocks.pl
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 || '';