stas 2004/10/15 15:28:34
Modified: ModPerl-Registry/t/cgi-bin runtime_error_n_status_change.pl status_change.pl Log: use Apache::NOT_FOUND constant instead of hardcoded 404 status Revision Changes Path 1.4 +4 -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.3 retrieving revision 1.4 diff -u -u -r1.3 -r1.4 --- runtime_error_n_status_change.pl 1 Apr 2003 04:18:49 -0000 1.3 +++ runtime_error_n_status_change.pl 15 Oct 2004 22:28:34 -0000 1.4 @@ -2,7 +2,10 @@ use Apache::TestUtil; t_server_log_error_is_expected(); } + +use Apache::Const -compile => qw(NOT_FOUND); + my $r = shift; -$r->status(404); +$r->status(Apache::NOT_FOUND); $r->print("Content-type: text/plain\n\n"); $r->print(no_such_func()); 1.3 +3 -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.2 retrieving revision 1.3 diff -u -u -r1.2 -r1.3 --- status_change.pl 7 Feb 2003 00:23:31 -0000 1.2 +++ status_change.pl 15 Oct 2004 22:28:34 -0000 1.3 @@ -1,3 +1,5 @@ +use Apache::Const -compile => qw(NOT_FOUND); + my $r = shift; -$r->status(404); +$r->status(Apache::NOT_FOUND); $r->print("Content-type: text/plain\n\n");