cvs commit: modperl-2.0/xs/Apache/Const Const.pm

[dougm]

dougm       2002/08/28 19:28:44

  Modified:    .        Changes
               t/response/TestCompat apache.pm
               xs/Apache/Const Const.pm
  Log:
  add Apache::DIR_MAGIC_TYPE constant
  
  Revision  Changes    Path
  1.42      +2 -0      modperl-2.0/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/Changes,v
  retrieving revision 1.41
  retrieving revision 1.42
  diff -u -r1.41 -r1.42
  --- Changes   28 Aug 2002 03:17:31 -0000      1.41
  +++ Changes   29 Aug 2002 02:28:44 -0000      1.42
  @@ -10,6 +10,8 @@
   
   =item 1.99_06-dev
   
  +add Apache::DIR_MAGIC_TYPE constant
  +
   add support for directive handlers
   
   fix source_scan to run with current httpd/apr
  
  
  
  1.2       +5 -2      modperl-2.0/t/response/TestCompat/apache.pm
  
  Index: apache.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestCompat/apache.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- apache.pm 15 Aug 2002 09:35:11 -0000      1.1
  +++ apache.pm 29 Aug 2002 02:28:44 -0000      1.2
  @@ -11,12 +11,12 @@
   use Apache::Test;
   
   use Apache::compat ();
  -use Apache::Constants qw(OK);
  +use Apache::Constants qw(OK DIR_MAGIC_TYPE);
   
   sub handler {
       my $r = shift;
   
  -    plan $r, tests => 5;
  +    plan $r, tests => 6;
   
       $r->send_http_header('text/plain');
   
  @@ -36,6 +36,9 @@
   
       Apache::log_error("Apache::log_error test ok");
       ok 1;
  +
  +    ok t_cmp("httpd/unix-directory", DIR_MAGIC_TYPE,
  +             'DIR_MAGIC_TYPE');
   
       OK;
   }
  
  
  
  1.2       +4 -0      modperl-2.0/xs/Apache/Const/Const.pm
  
  Index: Const.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/Apache/Const/Const.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- Const.pm  11 Apr 2001 22:50:10 -0000      1.1
  +++ Const.pm  29 Aug 2002 02:28:44 -0000      1.2
  @@ -8,4 +8,8 @@
   
   XSLoader::load(__PACKAGE__, $VERSION);
   
  +#XXX: we don't support string constants in the lookup functions
  +#always define this one for the moment
  +sub Apache::DIR_MAGIC_TYPE () { "httpd/unix-directory" }
  +
   1;