On Mon 03 Dec 2007, Torsten Foertsch wrote:
> 33.diff
> expands tabs in ModPerl-Registry/t/*.t
Index: t/apr-ext/perlio.t
===================================================================
--- t/apr-ext/perlio.t (revision 32)
+++ t/apr-ext/perlio.t (revision 33)
@@ -26,7 +26,7 @@
# prerequisite
# also need to check whether we build against the source tree, in
# which case we APR.so won't be linked against libapr/libaprutil
-my $has_apr_config = $build->{apr_config_path} &&
+my $has_apr_config = $build->{apr_config_path} &&
!$build->httpd_is_source_tree;
my $has_perlio_layers = 0;
@@ -231,11 +231,11 @@
}
-# XXX: need tests
+# XXX: need tests
# - for stdin/out/err as they are handled specially
# XXX: tmpfile is missing:
-# consider to use 5.8's syntax:
+# consider to use 5.8's syntax:
# open $fh, "+>", undef;
# cleanup: t_mkdir will remove the whole tree including the file
Index: t/apr-ext/uuid.t
===================================================================
--- t/apr-ext/uuid.t (revision 32)
+++ t/apr-ext/uuid.t (revision 33)
@@ -17,7 +17,7 @@
#######
# my $build = Apache2::Build->build_config;
#
-# my $has_apr_config = $build->{apr_config_path} &&
+# my $has_apr_config = $build->{apr_config_path} &&
# !$build->httpd_is_source_tree;
# plan tests => TestAPRlib::uuid::num_of_tests(),
# need {"the build couldn't find apr-config" => $has_apr_config};
Index: t/apache/content_length_header.t
===================================================================
--- t/apache/content_length_header.t (revision 32)
+++ t/apache/content_length_header.t (revision 33)
@@ -73,13 +73,13 @@
## to protect against wierd SVN checkout building.
## XXX: I'm starting to think this test is more
## trouble then its worth.
- if (have_min_apache_version("2.2.1")) {
+ if (have_min_apache_version("2.2.1")) {
$head_cl = 25;
}
elsif (have_min_apache_version("2.2.0")) {
# $head_cl = undef; # avoid warnings
}
- elsif (have_min_apache_version("2.0.56")) {
+ elsif (have_min_apache_version("2.0.56")) {
$head_cl = 25;
}
else {
Index: t/apache/constants.t
===================================================================
--- t/apache/constants.t (revision 32)
+++ t/apache/constants.t (revision 33)
@@ -9,7 +9,7 @@
# -compile puts constants into the Apache2:: namespace
use Apache2::Const -compile => qw(:http :common :mpmq :proxy
TAKE23 &OPT_EXECCGI
- DECLINE_CMD DIR_MAGIC_TYPE
+ DECLINE_CMD DIR_MAGIC_TYPE
CRLF);
# without -compile, constants are in the
@@ -30,11 +30,11 @@
ok t_cmp(Apache2::Const::HTTP_GONE, 410, 'Apache2::Const::HTTP_GONE');
-ok t_cmp(Apache2::Const::DIR_MAGIC_TYPE,
+ok t_cmp(Apache2::Const::DIR_MAGIC_TYPE,
'httpd/unix-directory',
'Apache2::Const::DIR_MAGIC_TYPE');
-ok t_cmp(Apache2::Const::MPMQ_MAX_SPARE_DAEMONS,
+ok t_cmp(Apache2::Const::MPMQ_MAX_SPARE_DAEMONS,
9,
'Apache2::Const::MPMQ_MAX_SPARE_DAEMONS');
Index: t/hooks/push_handlers.t
===================================================================
--- t/hooks/push_handlers.t (revision 32)
+++ t/hooks/push_handlers.t (revision 33)
@@ -8,7 +8,7 @@
plan tests => 1;
-my @refs = qw(conf conf1 conf2 coderef
+my @refs = qw(conf conf1 conf2 coderef
full_coderef coderef1 coderef2 coderef3);
my @anon = qw(anonymous anonymous1 coderef4 anonymous3);
Index: t/filter/out_str_req_mix.t
===================================================================
--- t/filter/out_str_req_mix.t (revision 32)
+++ t/filter/out_str_req_mix.t (revision 33)
@@ -16,5 +16,5 @@
my $received = POST_BODY $location, content => $content;
$received =~ s{\r?\n$}{};
-ok t_cmp($expected, $received,
+ok t_cmp($expected, $received,
"mixing output httpd and mod_perl filters, while preserving order");
Index: t/protocol/eliza.t
===================================================================
--- t/protocol/eliza.t (revision 32)
+++ t/protocol/eliza.t (revision 33)
@@ -6,9 +6,9 @@
use Apache::TestUtil;
use Apache::TestRequest ();
-my @test_strings = ('Hello Eliza',
- 'How are you?',
- 'Why do I have core dumped?',
+my @test_strings = ('Hello Eliza',
+ 'How are you?',
+ 'Why do I have core dumped?',
'I feel like writing some tests today, what about you?',
'Good bye, Eliza');
Index: t/perl/ithreads3.t
===================================================================
--- t/perl/ithreads3.t (revision 32)
+++ t/perl/ithreads3.t (revision 33)
@@ -14,12 +14,12 @@
sub t {
my $rc;
eval {
- local $SIG{ALRM}=sub {die "Timeout\n"};
- alarm 2;
- eval {
- $rc=GET_BODY u(shift);
- };
- alarm 0;
+ local $SIG{ALRM}=sub {die "Timeout\n"};
+ alarm 2;
+ eval {
+ $rc=GET_BODY u(shift);
+ };
+ alarm 0;
};
alarm 0;
return $rc;
Index: t/perl/hash_attack.t
===================================================================
--- t/perl/hash_attack.t (revision 32)
+++ t/perl/hash_attack.t (revision 33)
@@ -8,7 +8,7 @@
use Apache::TestRequest 'GET_BODY_ASSERT';
-plan tests => 1,
+plan tests => 1,
need { "relevant only for perl 5.8.2 and higher" => ($] >= 5.008002) };
my $expected = "ok";
Index: t/modperl/pnotes2.t
===================================================================
--- t/modperl/pnotes2.t (revision 32)
+++ t/modperl/pnotes2.t (revision 33)
@@ -23,7 +23,7 @@
$u="$url?$i"; $ok=GET_BODY $u;
select undef, undef, undef, 0.2; # give it time to write the logfile
ok t_cmp scalar(grep {
- /pnotes are destroyed after cleanup passed/;
+ /pnotes are destroyed after cleanup passed/;
} t_finish_error_log_watch), 1, $u;
}
Index: t/modperl/cookie.t
===================================================================
--- t/modperl/cookie.t (revision 32)
+++ t/modperl/cookie.t (revision 33)
@@ -10,7 +10,7 @@
# this test we call $r->subprocess_env, which adds them on demand, and
# we are able to get the cookie via %ENV.
#
-# the last sub-test makes sure that mod_cgi env vars don't persist
+# the last sub-test makes sure that mod_cgi env vars don't persist
# and are properly re-set at the end of each request.
#
# since the test is run against the same interpreter we also test that
Index: t/modules/reload.t
===================================================================
--- t/modules/reload.t (revision 32)
+++ t/modules/reload.t (revision 33)
@@ -72,7 +72,7 @@
{
my $expected = "unregistered OK";
- my $received = same_interp_req_body($same_interp, \&GET,
+ my $received = same_interp_req_body($same_interp, \&GET,
$location . '?last' );
$skip++ unless defined $received;
same_interp_skip_not_found(
@@ -98,7 +98,7 @@
our @methods = qw(simple const prototype subpackage);
-sub subpackage { return Apache2::Reload::Test::SubPackage::subpackage() }
+sub subpackage { return Apache2::Reload::Test::SubPackage::subpackage() }
sub run {
my $r = shift;
Index: t/directive/perl.t
===================================================================
--- t/directive/perl.t (revision 32)
+++ t/directive/perl.t (revision 33)
@@ -11,7 +11,7 @@
my @auth = (Authorization => 'Basic ZG91Z206Zm9v'); #dougm:foo
-foreach my $location ("/perl_sections/index.html",
+foreach my $location ("/perl_sections/index.html",
"/perl_sections_readconfig/index.html") {
sok {
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
