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