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 do...@hyperreal.org on 1998/11/12 17:12:11 UTC
cvs commit: modperl/t/net/perl constants.pl
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";