svn commit: r447772 - in /httpd/apreq/trunk/glue/perl/t/response/TestApReq: big_input.pm cookie.pm cookie2.pm inherit.pm request.pm upload.pm

[pgollucci]

Author: pgollucci
Date: Tue Sep 19 00:43:43 2006
New Revision: 447772

URL: http://svn.apache.org/viewvc?view=rev&rev=447772
Log:
s/return 0/return Apache2::Const::OK/

These are PerlResopnseHandlers



Modified:
    httpd/apreq/trunk/glue/perl/t/response/TestApReq/big_input.pm
    httpd/apreq/trunk/glue/perl/t/response/TestApReq/cookie.pm
    httpd/apreq/trunk/glue/perl/t/response/TestApReq/cookie2.pm
    httpd/apreq/trunk/glue/perl/t/response/TestApReq/inherit.pm
    httpd/apreq/trunk/glue/perl/t/response/TestApReq/request.pm
    httpd/apreq/trunk/glue/perl/t/response/TestApReq/upload.pm

Modified: httpd/apreq/trunk/glue/perl/t/response/TestApReq/big_input.pm
URL: 
http://svn.apache.org/viewvc/httpd/apreq/trunk/glue/perl/t/response/TestApReq/big_input.pm?view=diff&rev=447772&r1=447771&r2=447772
==============================================================================
--- httpd/apreq/trunk/glue/perl/t/response/TestApReq/big_input.pm (original)
+++ httpd/apreq/trunk/glue/perl/t/response/TestApReq/big_input.pm Tue Sep 19 
00:43:43 2006
@@ -6,6 +6,8 @@
 use Apache2::RequestIO;
 use Apache2::RequestRec;
 
+use Apache2::Const -compile => qw(OK);
+
 sub handler {
     my $r = shift;
     my $req = Apache2::Request->new($r);
@@ -20,7 +22,7 @@
     $req->content_type('text/plain');
     $req->print($len);
 
-    return 0;
+    return Apache2::Const::OK;
 }
 
 1;

Modified: httpd/apreq/trunk/glue/perl/t/response/TestApReq/cookie.pm
URL: 
http://svn.apache.org/viewvc/httpd/apreq/trunk/glue/perl/t/response/TestApReq/cookie.pm?view=diff&rev=447772&r1=447771&r2=447772
==============================================================================
--- httpd/apreq/trunk/glue/perl/t/response/TestApReq/cookie.pm (original)
+++ httpd/apreq/trunk/glue/perl/t/response/TestApReq/cookie.pm Tue Sep 19 
00:43:43 2006
@@ -6,6 +6,8 @@
 use Apache2::RequestIO ();
 use Apache2::RequestRec ();
 
+use Apache2::Const -compile => qw(OK);
+
 use Apache2::Cookie ();
 use Apache2::Request ();
 
@@ -67,7 +69,7 @@
     }
 
 
-    return 0;
+    return Apache2::Const::OK;
 }
 
 1;

Modified: httpd/apreq/trunk/glue/perl/t/response/TestApReq/cookie2.pm
URL: 
http://svn.apache.org/viewvc/httpd/apreq/trunk/glue/perl/t/response/TestApReq/cookie2.pm?view=diff&rev=447772&r1=447771&r2=447772
==============================================================================
--- httpd/apreq/trunk/glue/perl/t/response/TestApReq/cookie2.pm (original)
+++ httpd/apreq/trunk/glue/perl/t/response/TestApReq/cookie2.pm Tue Sep 19 
00:43:43 2006
@@ -7,6 +7,7 @@
 use Apache::TestUtil;
 
 use Apache2::RequestRec ();
+use Apache2::Const -compile => qw(OK);
 
 use Apache2::Cookie ();
 
@@ -62,7 +63,7 @@
 
 
 
-    return 0;
+    return Apache2::Const::OK;
 }
 
 1;

Modified: httpd/apreq/trunk/glue/perl/t/response/TestApReq/inherit.pm
URL: 
http://svn.apache.org/viewvc/httpd/apreq/trunk/glue/perl/t/response/TestApReq/inherit.pm?view=diff&rev=447772&r1=447771&r2=447772
==============================================================================
--- httpd/apreq/trunk/glue/perl/t/response/TestApReq/inherit.pm (original)
+++ httpd/apreq/trunk/glue/perl/t/response/TestApReq/inherit.pm Tue Sep 19 
00:43:43 2006
@@ -3,9 +3,11 @@
 use base qw/Apache2::Request Apache2::Cookie::Jar/;
 use strict;
 use warnings FATAL => 'all';
+
 use APR;
 use Apache2::RequestRec;
 use Apache2::RequestIO;
+use Apache2::Const -compile => qw(OK);
 
 sub handler {
     my $r = shift;
@@ -17,7 +19,7 @@
     my $req = bless { r => $r };
     $req->printf("method => %s\n", $req->method);
     $req->printf("cookie => %s\n", $req->cookies->{"apache"}->as_string);
-    return 0;
+    return Apache2::Const::OK;
 }
 
 sub DESTROY { $_[0]->print("DESTROYING ", __PACKAGE__, " object\n") }

Modified: httpd/apreq/trunk/glue/perl/t/response/TestApReq/request.pm
URL: 
http://svn.apache.org/viewvc/httpd/apreq/trunk/glue/perl/t/response/TestApReq/request.pm?view=diff&rev=447772&r1=447771&r2=447772
==============================================================================
--- httpd/apreq/trunk/glue/perl/t/response/TestApReq/request.pm (original)
+++ httpd/apreq/trunk/glue/perl/t/response/TestApReq/request.pm Tue Sep 19 
00:43:43 2006
@@ -13,6 +13,7 @@
 use APR::PerlIO;
 use Apache2::ServerUtil;
 use File::Spec;
+use Apache2::Const -compile => qw(OK);
 
 my $data;
 
@@ -170,7 +171,7 @@
         }
     }
 
-    return 0;
+    return Apache2::Const::OK;
 }
 1;
 __END__

Modified: httpd/apreq/trunk/glue/perl/t/response/TestApReq/upload.pm
URL: 
http://svn.apache.org/viewvc/httpd/apreq/trunk/glue/perl/t/response/TestApReq/upload.pm?view=diff&rev=447772&r1=447771&r2=447772
==============================================================================
--- httpd/apreq/trunk/glue/perl/t/response/TestApReq/upload.pm (original)
+++ httpd/apreq/trunk/glue/perl/t/response/TestApReq/upload.pm Tue Sep 19 
00:43:43 2006
@@ -7,6 +7,7 @@
 use Apache2::RequestIO;
 use Apache2::Request ();
 use Apache2::Upload;
+use Apache2::Const -compile => qw(OK);
 use File::Spec;
 require File::Basename;
 
@@ -71,7 +72,7 @@
 md5: $cs
 END
     unlink $temp_file if -f $temp_file;
-    return 0;
+    return Apache2::Const::OK;
 }
 
 sub cs {