dougm 01/07/13 09:34:03
Modified: t/response/TestAPR pool.pm
xs/maps apr_functions.map
Log:
apr_pool_num_bytes is now only available #ifdef APR_POOL_DEBUG
Revision Changes Path
1.2 +4 -4 modperl-2.0/t/response/TestAPR/pool.pm
Index: pool.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/pool.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- pool.pm 2001/04/12 05:38:24 1.1
+++ pool.pm 2001/07/13 16:33:45 1.2
@@ -16,15 +16,15 @@
sub handler {
my $r = shift;
- plan $r, tests => 3;
+ plan $r, tests => 2;
my $p = APR::Pool->new;
ok $p->isa('APR::Pool');
- my $num_bytes = $p->num_bytes;
-
- ok $num_bytes;
+#only available with -DAPR_POOL_DEBUG
+# my $num_bytes = $p->num_bytes;
+# ok $num_bytes;
$p->cleanup_register(\&cleanup, 33);
1.13 +1 -1 modperl-2.0/xs/maps/apr_functions.map
Index: apr_functions.map
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/maps/apr_functions.map,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -r1.12 -r1.13
--- apr_functions.map 2001/06/15 03:58:54 1.12
+++ apr_functions.map 2001/07/13 16:33:58 1.13
@@ -127,7 +127,7 @@
MODULE=APR::Pool
>apr_pool_free_blocks_num_bytes
- apr_pool_num_bytes | | p, recurse=0
+-apr_pool_num_bytes | | p, recurse=0 #only available with -DAPR_POOL_DEBUG
apr_pool_cleanup_for_exec
apr_pool_clear
apr_pool_destroy