dougm 01/11/19 15:46:48
Modified: xs/Apache/ServerUtil Apache__ServerUtil.h
xs/maps apache_functions.map
Log:
add Apache::server_root constant
Revision Changes Path
1.8 +6 -0 modperl-2.0/xs/Apache/ServerUtil/Apache__ServerUtil.h
Index: Apache__ServerUtil.h
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/Apache/ServerUtil/Apache__ServerUtil.h,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- Apache__ServerUtil.h 2001/11/19 23:32:00 1.7
+++ Apache__ServerUtil.h 2001/11/19 23:46:48 1.8
@@ -50,3 +50,9 @@
return ap_server_root_relative(p, fname);
}
+
+static void mpxs_Apache__ServerUtil_BOOT(pTHX)
+{
+ newCONSTSUB(PL_defstash, "Apache::server_root",
+ newSVpv(ap_server_root, 0));
+}
1.39 +1 -1 modperl-2.0/xs/maps/apache_functions.map
Index: apache_functions.map
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/maps/apache_functions.map,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -r1.38 -r1.39
--- apache_functions.map 2001/11/19 23:32:00 1.38
+++ apache_functions.map 2001/11/19 23:46:48 1.39
@@ -138,7 +138,7 @@
-ap_scan_script_header_err_core
-ap_scan_script_header_err_strs
-MODULE=Apache::ServerUtil PACKAGE=guess
+MODULE=Apache::ServerUtil PACKAGE=guess BOOT=1
ap_add_version_component
ap_construct_server
ap_construct_url | | r,uri,p
