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 2004/10/16 00:28:34 UTC
cvs commit: modperl-2.0/ModPerl-Registry/t/cgi-bin runtime_error_n_status_change.pl status_change.pl
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");