[svn:modperl-modules] rev 214 - in Apache-DebugFilter/trunk: . t/response/TestDebugFilter

Author: [email protected]
Date: Sun Apr 10 14:30:47 2005
New Revision: 214

Modified:
   Apache-DebugFilter/trunk/DebugFilter.pm
   Apache-DebugFilter/trunk/Makefile.PL
   Apache-DebugFilter/trunk/t/response/TestDebugFilter/snoop.pm
Log:


Modified: Apache-DebugFilter/trunk/DebugFilter.pm
==============================================================================
--- Apache-DebugFilter/trunk/DebugFilter.pm	(original)
+++ Apache-DebugFilter/trunk/DebugFilter.pm	Sun Apr 10 14:30:47 2005
@@ -5,15 +5,15 @@
 use strict;
 use warnings FATAL => 'all';
 
-$Apache::DebugFilter::VERSION = '0.01_03';
+$Apache::DebugFilter::VERSION = '0.02_01';
 
-use base qw(Apache::Filter);
-use Apache::FilterRec ();
+use base qw(Apache2::Filter);
+use Apache2::FilterRec ();
 use APR::Brigade ();
 use APR::Bucket ();
 use APR::BucketType ();
 
-use Apache::Const -compile => qw(OK DECLINED);
+use Apache2::Const -compile => qw(OK DECLINED);
 use APR::Const    -compile => ':common';
 
 sub snoop_connection : FilterConnectionHandler { snoop("connection", @_) }
@@ -30,20 +30,20 @@
     if (defined $mode) {
         # input filter
         my $rv = $filter->next->get_brigade($bb, $mode, $block, $readbytes);
-        return $rv unless $rv == APR::SUCCESS;
+        return $rv unless $rv == APR::Const::SUCCESS;
         _snoop_bb_dump($type, $stream, $bb, \*STDERR);
     }
     else {
         # output filter
         _snoop_bb_dump($type, $stream, $bb, \*STDERR);
         my $rv = $filter->next->pass_brigade($bb);
-        return $rv unless $rv == APR::SUCCESS;
+        return $rv unless $rv == APR::Const::SUCCESS;
     }
     #if ($bb->empty) {
     #    return -1;
     #}
 
-    return Apache::OK;
+    return Apache2::Const::OK;
 }
 
 sub _snoop_bb_dump {

Modified: Apache-DebugFilter/trunk/Makefile.PL
==============================================================================
--- Apache-DebugFilter/trunk/Makefile.PL	(original)
+++ Apache-DebugFilter/trunk/Makefile.PL	Sun Apr 10 14:30:47 2005
@@ -1,8 +1,8 @@
 use ExtUtils::MakeMaker;
 
 require 5.006;
-use Apache2;
-use mod_perl 1.99;
+use Apache2::Module;
+use mod_perl2;
 use ModPerl::MM;
 use Apache::TestMM qw(test clean);
 
@@ -17,7 +17,7 @@
 
 my %require = (
     "Apache::Test" => "1.10", # ipv6 fixes
-    "mod_perl"     => "1.9915",
+    "mod_perl"     => "1.9922",
 );
 
 ModPerl::MM::WriteMakefile(
@@ -27,7 +27,7 @@
         FILES => "@clean_files",
     },
     ABSTRACT_FROM => 'DebugFilter.pm',
-    AUTHOR        => 'Stas Bekman <[email protected]>',
+    AUTHOR        => 'Philip M. Gollucci',
     PREREQ_PM     => \%require,
     dist          => {
         PREOP        => 'pod2text DebugFilter.pm > $(DISTVNAME)/README',

Modified: Apache-DebugFilter/trunk/t/response/TestDebugFilter/snoop.pm
==============================================================================
--- Apache-DebugFilter/trunk/t/response/TestDebugFilter/snoop.pm	(original)
+++ Apache-DebugFilter/trunk/t/response/TestDebugFilter/snoop.pm	Sun Apr 10 14:30:47 2005
@@ -5,11 +5,11 @@
 
 use APR::Brigade ();
 use APR::Bucket ();
-use Apache::RequestRec ();
-use Apache::RequestIO ();
-use Apache::Connection ();
+use Apache2::RequestRec ();
+use Apache2::RequestIO ();
+use Apache2::Connection ();
 
-use Apache::Const -compile => qw(OK M_POST MODE_READBYTES);
+use Apache2::Const -compile => qw(OK M_POST MODE_READBYTES);
 use APR::Const -compile => qw(:common BLOCK_READ);
 
 use constant IOBUFSIZE => 8192;
@@ -19,12 +19,12 @@
 
     $r->content_type('text/plain');
 
-    if ($r->method_number == Apache::M_POST) {
+    if ($r->method_number == Apache2::Const::M_POST) {
         my $data = read_post($r);
         $r->print($data);
     }
 
-    Apache::OK;
+    Apache2::Const::OK;
 }
 
 # to enable debug start with: (or simply run with -trace=debug)
@@ -40,8 +40,8 @@
     my $seen_eos = 0;
     my $count = 0;
     do {
-        $r->input_filters->get_brigade($bb, Apache::MODE_READBYTES,
-                                       APR::BLOCK_READ, IOBUFSIZE);
+        $r->input_filters->get_brigade($bb, Apache2::Const::MODE_READBYTES,
+                                       APR::Const::BLOCK_READ, IOBUFSIZE);
 
         $count++;