perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@hyperreal.org
Subject cvs commit: modperl/t/net/perl constants.pl
Date Thu, 12 Nov 1998 16:12:11 GMT
dougm       98/11/12 08:12:11

  Modified:    .        Changes
               Constants Constants.pm
               lib/Apache/Constants Exports.pm
               src/modules/perl Constants.xs Exports.c
               t/net/perl constants.pl
  Log:
  add support for new 1.3.4-dev M_* methods, M_PATCH, M_LOCK, etc.
  
  Revision  Changes    Path
  1.192     +2 -0      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /export/home/cvs/modperl/Changes,v
  retrieving revision 1.191
  retrieving revision 1.192
  diff -u -r1.191 -r1.192
  --- Changes	1998/11/12 14:56:22	1.191
  +++ Changes	1998/11/12 16:12:07	1.192
  @@ -8,6 +8,8 @@
   
   =item 1.16_01-dev
   
  +add support for new 1.3.4-dev M_* methods, M_PATCH, M_LOCK, etc
  +
   fix $r->log->debug when running under -T
   
   new Apache::Leak module
  
  
  
  1.14      +8 -0      modperl/Constants/Constants.pm
  
  Index: Constants.pm
  ===================================================================
  RCS file: /export/home/cvs/modperl/Constants/Constants.pm,v
  retrieving revision 1.13
  retrieving revision 1.14
  diff -u -r1.13 -r1.14
  --- Constants.pm	1998/10/21 00:06:33	1.13
  +++ Constants.pm	1998/11/12 16:12:08	1.14
  @@ -106,6 +106,14 @@
    M_POST
    M_PUT
    M_TRACE 
  + M_PATCH
  + M_PROPFIND
  + M_PROPPATCH
  + M_MKCOL
  + M_COPY
  + M_MOVE
  + M_LOCK
  + M_UNLOCK
   
   =item options
   
  
  
  
  1.7       +3 -1      modperl/lib/Apache/Constants/Exports.pm
  
  Index: Exports.pm
  ===================================================================
  RCS file: /export/home/cvs/modperl/lib/Apache/Constants/Exports.pm,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- Exports.pm	1998/10/21 00:06:34	1.6
  +++ Exports.pm	1998/11/12 16:12:09	1.7
  @@ -5,7 +5,9 @@
   my(@common)     = qw(OK DECLINED DONE NOT_FOUND FORBIDDEN
   		     AUTH_REQUIRED SERVER_ERROR);
   my(@methods)    = qw(M_CONNECT M_DELETE M_GET M_INVALID M_OPTIONS
  -		     M_POST M_PUT M_TRACE METHODS);
  +		     M_POST M_PUT M_TRACE 
  +		     M_PATCH M_PROPFIND M_PROPPATCH M_MKCOL M_COPY 
  +		     M_MOVE M_LOCK M_UNLOCK METHODS);
   my(@options)    = qw(OPT_NONE OPT_INDEXES OPT_INCLUDES 
   		     OPT_SYM_LINKS OPT_EXECCGI OPT_UNSET OPT_INCNOEXEC
   		     OPT_SYM_OWNER OPT_MULTI OPT_ALL);
  
  
  
  1.13      +48 -0     modperl/src/modules/perl/Constants.xs
  
  Index: Constants.xs
  ===================================================================
  RCS file: /export/home/cvs/modperl/src/modules/perl/Constants.xs,v
  retrieving revision 1.12
  retrieving revision 1.13
  diff -u -r1.12 -r1.13
  --- Constants.xs	1998/08/14 14:49:40	1.12
  +++ Constants.xs	1998/11/12 16:12:09	1.13
  @@ -531,6 +531,54 @@
   #else
   	    goto not_there;
   #endif
  +        if (strEQ(name, "M_PATCH"))
  +#ifdef M_PATCH
  +            return M_PATCH;
  +#else
  +            goto not_there;
  +#endif
  +        if (strEQ(name, "M_PROPFIND"))
  +#ifdef M_PROPFIND
  +            return M_PROPFIND;
  +#else
  +            goto not_there;
  +#endif
  +        if (strEQ(name, "M_PROPPATCH"))
  +#ifdef M_PROPPATCH
  +            return M_PROPPATCH;
  +#else
  +            goto not_there;
  +#endif
  +        if (strEQ(name, "M_MKCOL"))
  +#ifdef M_MKCOL
  +            return M_MKCOL;
  +#else
  +            goto not_there;
  +#endif
  +        if (strEQ(name, "M_COPY"))
  +#ifdef M_COPY
  +            return M_COPY;
  +#else
  +            goto not_there;
  +#endif
  +        if (strEQ(name, "M_MOVE"))
  +#ifdef M_MOVE
  +            return M_MOVE;
  +#else
  +            goto not_there;
  +#endif
  +        if (strEQ(name, "M_LOCK"))
  +#ifdef M_LOCK
  +            return M_LOCK;
  +#else
  +            goto not_there;
  +#endif
  +        if (strEQ(name, "M_UNLOCK"))
  +#ifdef M_UNLOCK
  +            return M_UNLOCK;
  +#else
  +            goto not_there;
  +#endif
   	break;
       case 'N':
   	if (strEQ(name, "NOT_AUTHORITATIVE"))
  
  
  
  1.5       +8 -0      modperl/src/modules/perl/Exports.c
  
  Index: Exports.c
  ===================================================================
  RCS file: /export/home/cvs/modperl/src/modules/perl/Exports.c,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- Exports.c	1998/10/21 00:06:35	1.4
  +++ Exports.c	1998/11/12 16:12:09	1.5
  @@ -45,6 +45,14 @@
      "M_POST",
      "M_PUT",
      "M_TRACE",
  +   "M_PATCH",
  +   "M_PROPFIND",
  +   "M_PROPPATCH",
  +   "M_MKCOL",
  +   "M_COPY",
  +   "M_MOVE",
  +   "M_LOCK",
  +   "M_UNLOCK",
      "METHODS",
      NULL,
   };
  
  
  
  1.8       +9 -1      modperl/t/net/perl/constants.pl
  
  Index: constants.pl
  ===================================================================
  RCS file: /export/home/cvs/modperl/t/net/perl/constants.pl,v
  retrieving revision 1.7
  retrieving revision 1.8
  diff -u -r1.7 -r1.8
  --- constants.pl	1998/07/14 14:57:09	1.7
  +++ constants.pl	1998/11/12 16:12:10	1.8
  @@ -8,7 +8,7 @@
   
   eval { require Apache::Constants::Exports };
   
  -use Apache::Constants ();
  +use Apache::Constants qw(MODULE_MAGIC_NUMBER);
   use strict qw(vars);
   shift->send_http_header("text/plain");
   
  @@ -32,6 +32,14 @@
   #skip some 1.3 stuff that 1.2 didn't have
   my %skip = map { $_,1 } qw(DONE REMOTE_DOUBLE_REV DECLINE_CMD DIR_MAGIC_TYPE
   			   SERVER_VERSION SERVER_SUBVERSION SERVER_BUILT);
  +
  +if(MODULE_MAGIC_NUMBER < 19981108) {
  +    for(qw(M_PATCH M_PROPFIND M_PROPPATCH M_MKCOL M_COPY
  +	   M_MOVE M_LOCK M_UNLOCK))
  +    {
  +	$skip{$_}++;
  +    }
  +}
   
   my $tests = (1 + @export) - keys %skip; 
   print "1..$tests\n"; 
  
  
  

Mime
View raw message