From:	stas@cvs.perl.org	Date:	Sun Jan  2 23:05:07 2005
Subject:	[svn:modperl-modules] rev 100 - in Apache-Filter-HTTPHeadersFixup/trunk: . lib/Apache/Filter

Author: stas
Date: Sun Jan  2 22:05:07 2005
New Revision: 100

Modified:
   Apache-Filter-HTTPHeadersFixup/trunk/Changes
   Apache-Filter-HTTPHeadersFixup/trunk/Makefile.PL
   Apache-Filter-HTTPHeadersFixup/trunk/lib/Apache/Filter/HTTPHeadersFixup.pm
Log:
sync APR::Bucket->new API with mp-1.99_17 and require it


Modified: Apache-Filter-HTTPHeadersFixup/trunk/Changes
==============================================================================
--- Apache-Filter-HTTPHeadersFixup/trunk/Changes	(original)
+++ Apache-Filter-HTTPHeadersFixup/trunk/Changes	Sun Jan  2 22:05:07 2005
@@ -4,7 +4,9 @@
 
 =over
 
-=item 0.05 - 
+=item 0.05 - Mon Jan  3 01:03:12 EST 2005
+
+sync APR::Bucket->new API with mp-1.99_17 and require it
 
 pass non-data META buckets through 
 

Modified: Apache-Filter-HTTPHeadersFixup/trunk/Makefile.PL
==============================================================================
--- Apache-Filter-HTTPHeadersFixup/trunk/Makefile.PL	(original)
+++ Apache-Filter-HTTPHeadersFixup/trunk/Makefile.PL	Sun Jan  2 22:05:07 2005
@@ -11,7 +11,7 @@
 
 # prerequisites
 my %require = (
-    "mod_perl"      => "1.9916",
+    "mod_perl"      => "1.9917",
     "Apache::Test"  => "1.13",
 );
 
@@ -25,9 +25,6 @@
     NAME         => 'Apache::Filter::HTTPHeadersFixup',
     VERSION_FROM => 'lib/Apache/Filter/HTTPHeadersFixup.pm',
     PREREQ_PM    => \%require,
-    dist         => {
-        PREOP => 'pod2text lib/Apache/Filter/HTTPHeadersFixup.pm > $(DISTVNAME)/README',
-    },
     clean        => {
         FILES => "@{ clean_files() }",
     }

Modified: Apache-Filter-HTTPHeadersFixup/trunk/lib/Apache/Filter/HTTPHeadersFixup.pm
==============================================================================
--- Apache-Filter-HTTPHeadersFixup/trunk/lib/Apache/Filter/HTTPHeadersFixup.pm	(original)
+++ Apache-Filter-HTTPHeadersFixup/trunk/lib/Apache/Filter/HTTPHeadersFixup.pm	Sun Jan  2 22:05:07 2005
@@ -98,6 +98,8 @@
 
     mydebug "data: $data\n";
 
+    my $c = $f->c;
+    my $ba = $c->bucket_alloc;
     while ($data =~ /(.*\n)/g) {
         my $line = $1;
         mydebug "READ: [$line]";
@@ -110,9 +112,8 @@
             my $data = join '', @{ $ctx->{headers} }, "\n";
             $ctx->{headers} = [];
 
-            my $c = $f->c;
-            my $out_bb = APR::Brigade->new($c->pool, $c->bucket_alloc);
-            $out_bb->insert_tail(APR::Bucket->new($data));
+            my $out_bb = APR::Brigade->new($c->pool, $ba);
+            $out_bb->insert_tail(APR::Bucket->new($ba, $data));
 
             my $rv = $f->next->pass_brigade($out_bb);
             return $rv unless $rv == APR::SUCCESS;
@@ -218,7 +219,7 @@
 
     # extra debug, wasting cycles
     my $data = shift @{ $ctx->{headers} };
-    $bb->insert_tail(APR::Bucket->new($data));
+    $bb->insert_tail(APR::Bucket->new($bb->bucket_alloc, $data));
     mydebug "injected header: [$data]";
 
     # next filter invocations will bring the request body if any