stas 2004/09/20 20:29:18
Modified: . Changes
t/response/TestAPR finfo.pm
xs/maps apr_structures.map
Log:
no more APR::Finfo::pool
Revision Changes Path
1.490 +2 -0 modperl-2.0/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl-2.0/Changes,v
retrieving revision 1.489
retrieving revision 1.490
diff -u -u -r1.489 -r1.490
--- Changes 20 Sep 2004 18:14:47 -0000 1.489
+++ Changes 21 Sep 2004 03:29:18 -0000 1.490
@@ -12,6 +12,8 @@
=item 1.99_17-dev
+Remove APR::Finfo::pool as it has no use to us [Stas]
+
get PerlSetVar and PerlAddVar multi-level merges to (finally) work
properly. [Rici Lake <rici ricilake.net>]
1.16 +1 -9 modperl-2.0/t/response/TestAPR/finfo.pm
Index: finfo.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/finfo.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -u -r1.15 -r1.16
--- finfo.pm 24 Jul 2004 09:25:27 -0000 1.15
+++ finfo.pm 21 Sep 2004 03:29:18 -0000 1.16
@@ -19,7 +19,7 @@
sub handler {
my $r = shift;
- my $tests = 2 + TestAPRlib::finfo::num_of_tests();
+ my $tests = 1 + TestAPRlib::finfo::num_of_tests();
plan $r, tests => $tests;
{
@@ -27,14 +27,6 @@
my $isa = $finfo->isa('APR::Finfo');
t_debug "\$r->finfo $finfo";
- ok $isa;
- }
-
- {
- my $pool = $r->finfo->pool;
- my $isa = $pool->isa('APR::Pool');
-
- t_debug "\$r->finfo->pool $pool";
ok $isa;
}
1.17 +1 -1 modperl-2.0/xs/maps/apr_structures.map
Index: apr_structures.map
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/maps/apr_structures.map,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -u -r1.16 -r1.17
--- apr_structures.map 28 May 2004 01:36:40 -0000 1.16
+++ apr_structures.map 21 Sep 2004 03:29:18 -0000 1.17
@@ -38,7 +38,7 @@
</apr_bucket_brigade>
<apr_finfo_t>
-< pool
+- pool
< valid
< protection
< filetype
