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...@apache.org on 2002/08/29 04:28:44 UTC
cvs commit: modperl-2.0/xs/Apache/Const Const.pm
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;