svn commit: r1537760 - in /perl/modperl/branches/httpd24threading: ./ t/response/TestModperl/interpreter.pm

[stevehay]

Author: stevehay
Date: Thu Oct 31 23:22:15 2013
New Revision: 1537760

URL: http://svn.apache.org/r1537760
Log:
Merged revision(s) 671901 from perl/modperl/branches/threading:
expanding tabs in Perl files
........

Modified:
    perl/modperl/branches/httpd24threading/   (props changed)
    perl/modperl/branches/httpd24threading/t/response/TestModperl/interpreter.pm

Propchange: perl/modperl/branches/httpd24threading/
------------------------------------------------------------------------------
  Merged /perl/modperl/branches/threading:r671901

Modified: 
perl/modperl/branches/httpd24threading/t/response/TestModperl/interpreter.pm
URL: 
http://svn.apache.org/viewvc/perl/modperl/branches/httpd24threading/t/response/TestModperl/interpreter.pm?rev=1537760&r1=1537759&r2=1537760&view=diff
==============================================================================
--- 
perl/modperl/branches/httpd24threading/t/response/TestModperl/interpreter.pm 
(original)
+++ 
perl/modperl/branches/httpd24threading/t/response/TestModperl/interpreter.pm 
Thu Oct 31 23:22:15 2013
@@ -24,50 +24,50 @@ sub handler {
     my $interp = ModPerl::Interpreter->current;
 
     ok t_cmp(ref($interp), 'ModPerl::Interpreter',
-            'interp is a ModPerl::Interpreter');
+             'interp is a ModPerl::Interpreter');
 
     ok t_cmp($$interp==${ModPerl::Interpreter::current()}, !!1,
-            'ModPerl::Interpreter->current == ModPerl::Interpreter::current');
+             'ModPerl::Interpreter->current == ModPerl::Interpreter::current');
 
     my $mip = $interp->mip;
 
     ok t_cmp(ref($mip), 'ModPerl::InterpPool',
-            'interp->mip is a ModPerl::InterpPool');
+             'interp->mip is a ModPerl::InterpPool');
 
     ok t_cmp(${$mip->server}==${$r->server}, !!1,
-            'mip->server == r->server');
+             'mip->server == r->server');
 
     ok t_cmp(ref($mip->parent), 'ModPerl::Interpreter',
-            'mip->parent is a ModPerl::Interpreter');
+             'mip->parent is a ModPerl::Interpreter');
 
     if($is_threaded) {
-       ok t_cmp($interp->perl!=0, !!1, 'interp->perl');
-       ok t_cmp($interp->num_requests>0, !!1, 'interp->num_requests');
-       ok t_cmp($interp->refcnt>0, !!1, 'interp->refcnt');
+        ok t_cmp($interp->perl!=0, !!1, 'interp->perl');
+        ok t_cmp($interp->num_requests>0, !!1, 'interp->num_requests');
+        ok t_cmp($interp->refcnt>0, !!1, 'interp->refcnt');
 
-       my $tipool = $mip->tipool;
+        my $tipool = $mip->tipool;
 
-       ok t_cmp(ref($tipool), 'ModPerl::TiPool',
-                'mip->tipool is a ModPerl::TiPool');
+        ok t_cmp(ref($tipool), 'ModPerl::TiPool',
+                 'mip->tipool is a ModPerl::TiPool');
 
-       ok t_cmp($tipool->in_use!=0, !!1, 'tipool->in_use');
+        ok t_cmp($tipool->in_use!=0, !!1, 'tipool->in_use');
 
-       ok t_cmp($tipool->size!=0, !!1, 'tipool->size');
+        ok t_cmp($tipool->size!=0, !!1, 'tipool->size');
 
-       my $tipcfg = $tipool->cfg;
+        my $tipcfg = $tipool->cfg;
 
-       ok t_cmp(ref($tipcfg), 'ModPerl::TiPoolConfig',
-                'tipool->cfg is a ModPerl::TiPoolConfig');
+        ok t_cmp(ref($tipcfg), 'ModPerl::TiPoolConfig',
+                 'tipool->cfg is a ModPerl::TiPoolConfig');
 
-       ok t_cmp($tipcfg->start!=0, !!1, 'tipcfg->start');
+        ok t_cmp($tipcfg->start!=0, !!1, 'tipcfg->start');
 
-       ok t_cmp($tipcfg->min_spare!=0, !!1, 'tipcfg->min_spare');
+        ok t_cmp($tipcfg->min_spare!=0, !!1, 'tipcfg->min_spare');
 
-       ok t_cmp($tipcfg->max_spare!=0, !!1, 'tipcfg->max_spare');
+        ok t_cmp($tipcfg->max_spare!=0, !!1, 'tipcfg->max_spare');
 
-       ok t_cmp($tipcfg->max!=0, !!1, 'tipcfg->max');
+        ok t_cmp($tipcfg->max!=0, !!1, 'tipcfg->max');
 
-       ok t_cmp($tipcfg->max_requests!=0, !!1, 'tipcfg->max_requests');
+        ok t_cmp($tipcfg->max_requests!=0, !!1, 'tipcfg->max_requests');
     }
 
     Apache2::Const::OK;