perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/ModPerl-Registry/t/cgi-bin runtime_error_n_status_change.pl status_change.pl
Date Fri, 15 Oct 2004 22:28:34 GMT
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");
  
  
  

Mime
View raw message