stas 2003/02/06 16:23:31
Modified: ModPerl-Registry/t/cgi-bin runtime_error_n_status_change.pl
status_change.pl
Log:
don't use the 1.x compat api
Revision Changes Path
1.2 +1 -1
modperl-2.0/ModPerl-Registry/t/cgi-bin/runtime_error_n_status_change.pl
Index: runtime_error_n_status_change.pl
===================================================================
RCS file:
/home/cvs/modperl-2.0/ModPerl-Registry/t/cgi-bin/runtime_error_n_status_change.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- runtime_error_n_status_change.pl 7 Feb 2003 00:15:39 -0000 1.1
+++ runtime_error_n_status_change.pl 7 Feb 2003 00:23:31 -0000 1.2
@@ -1,4 +1,4 @@
my $r = shift;
$r->status(404);
-$r->send_http_header('text/plain');
+$r->print("Content-type: text/plain\n\n");
$r->print(no_such_func());
1.2 +1 -1 modperl-2.0/ModPerl-Registry/t/cgi-bin/status_change.pl
Index: status_change.pl
===================================================================
RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/cgi-bin/status_change.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- status_change.pl 7 Feb 2003 00:13:40 -0000 1.1
+++ status_change.pl 7 Feb 2003 00:23:31 -0000 1.2
@@ -1,3 +1,3 @@
my $r = shift;
$r->status(404);
-$r->send_http_header('text/plain');
+$r->print("Content-type: text/plain\n\n");
