Author: bernhard
Date: Sun May 6 11:26:50 2007
New Revision: 18439
Modified:
trunk/lib/Parrot/Vtable.pm
trunk/t/configure/05-run_one_step.t
trunk/t/configure/06-bad_step.t
trunk/t/configure/07-verbose_two.t
trunk/t/configure/08-verbose_step_number.t
trunk/t/configure/09-verbose_step_regex.t
trunk/t/configure/10-verbose_step_number_not_called.t
trunk/t/configure/11-no_description.t
trunk/t/configure/12-verbose.t
trunk/t/configure/13-die.t
trunk/t/configure/14-params.t
trunk/t/configure/15-no_return.t
trunk/t/configure/16-no_return_but_result.t
trunk/t/configure/20-version.t
trunk/t/configure/21-version.t
trunk/t/configure/22-version.t
trunk/t/configure/23-version.t
trunk/t/configure/24-version.t
trunk/t/postconfigure/02-revision_no_DEVELOPING.t
Log:
#42427: [CAGE] cleanup perlcritic errors
Remove trailing white space.
Modified: trunk/lib/Parrot/Vtable.pm
==============================================================================
--- trunk/lib/Parrot/Vtable.pm (original)
+++ trunk/lib/Parrot/Vtable.pm Sun May 6 11:26:50 2007
@@ -1,4 +1,4 @@
-# Copyright (C) 2001-2006, The Perl Foundation.
+# Copyright (C) 2001-2007, The Perl Foundation.
# $Id$
=head1 NAME
@@ -114,7 +114,7 @@
die "Syntax error at $file line " . $fh->input_line_number() .
"\n";
}
}
-
+
# We probably should sort on insert, but this is easier for now. And it's
# compile time, so it's not all that important.
return [EMAIL PROTECTED], sort { $a->[1] cmp $b->[1] } @$vtable];
Modified: trunk/t/configure/05-run_one_step.t
==============================================================================
--- trunk/t/configure/05-run_one_step.t (original)
+++ trunk/t/configure/05-run_one_step.t Sun May 6 11:26:50 2007
@@ -65,7 +65,7 @@
$nontaskcount++ unless $k->isa("Parrot::Configure::Task");
}
is($nontaskcount, 0, "Each step is a Parrot::Configure::Task object");
-is($confsteps[0]->step, $step,
+is($confsteps[0]->step, $step,
"'step' element of Parrot::Configure::Task struct identified");
is(ref($confsteps[0]->params), 'ARRAY',
"'params' element of Parrot::Configure::Task struct is array ref");
Modified: trunk/t/configure/06-bad_step.t
==============================================================================
--- trunk/t/configure/06-bad_step.t (original)
+++ trunk/t/configure/06-bad_step.t Sun May 6 11:26:50 2007
@@ -47,7 +47,7 @@
$nontaskcount++ unless $k->isa("Parrot::Configure::Task");
}
is($nontaskcount, 0, "Each step is a Parrot::Configure::Task object");
-is($confsteps[0]->step, $badstep,
+is($confsteps[0]->step, $badstep,
"'step' element of Parrot::Configure::Task struct identified");
is(ref($confsteps[0]->params), 'ARRAY',
"'params' element of Parrot::Configure::Task struct is array ref");
Modified: trunk/t/configure/07-verbose_two.t
==============================================================================
--- trunk/t/configure/07-verbose_two.t (original)
+++ trunk/t/configure/07-verbose_two.t Sun May 6 11:26:50 2007
@@ -47,7 +47,7 @@
$nontaskcount++ unless $k->isa("Parrot::Configure::Task");
}
is($nontaskcount, 0, "Each step is a Parrot::Configure::Task object");
-is($confsteps[0]->step, $step,
+is($confsteps[0]->step, $step,
"'step' element of Parrot::Configure::Task struct identified");
is(ref($confsteps[0]->params), 'ARRAY',
"'params' element of Parrot::Configure::Task struct is array ref");
Modified: trunk/t/configure/08-verbose_step_number.t
==============================================================================
--- trunk/t/configure/08-verbose_step_number.t (original)
+++ trunk/t/configure/08-verbose_step_number.t Sun May 6 11:26:50 2007
@@ -47,7 +47,7 @@
$nontaskcount++ unless $k->isa("Parrot::Configure::Task");
}
is($nontaskcount, 0, "Each step is a Parrot::Configure::Task object");
-is($confsteps[0]->step, $step,
+is($confsteps[0]->step, $step,
"'step' element of Parrot::Configure::Task struct identified");
is(ref($confsteps[0]->params), 'ARRAY',
"'params' element of Parrot::Configure::Task struct is array ref");
Modified: trunk/t/configure/09-verbose_step_regex.t
==============================================================================
--- trunk/t/configure/09-verbose_step_regex.t (original)
+++ trunk/t/configure/09-verbose_step_regex.t Sun May 6 11:26:50 2007
@@ -47,7 +47,7 @@
$nontaskcount++ unless $k->isa("Parrot::Configure::Task");
}
is($nontaskcount, 0, "Each step is a Parrot::Configure::Task object");
-is($confsteps[0]->step, $step,
+is($confsteps[0]->step, $step,
"'step' element of Parrot::Configure::Task struct identified");
is(ref($confsteps[0]->params), 'ARRAY',
"'params' element of Parrot::Configure::Task struct is array ref");
Modified: trunk/t/configure/10-verbose_step_number_not_called.t
==============================================================================
--- trunk/t/configure/10-verbose_step_number_not_called.t (original)
+++ trunk/t/configure/10-verbose_step_number_not_called.t Sun May 6
11:26:50 2007
@@ -47,7 +47,7 @@
$nontaskcount++ unless $k->isa("Parrot::Configure::Task");
}
is($nontaskcount, 0, "Each step is a Parrot::Configure::Task object");
-is($confsteps[0]->step, $step,
+is($confsteps[0]->step, $step,
"'step' element of Parrot::Configure::Task struct identified");
is(ref($confsteps[0]->params), 'ARRAY',
"'params' element of Parrot::Configure::Task struct is array ref");
Modified: trunk/t/configure/11-no_description.t
==============================================================================
--- trunk/t/configure/11-no_description.t (original)
+++ trunk/t/configure/11-no_description.t Sun May 6 11:26:50 2007
@@ -47,7 +47,7 @@
$nontaskcount++ unless $k->isa("Parrot::Configure::Task");
}
is($nontaskcount, 0, "Each step is a Parrot::Configure::Task object");
-is($confsteps[0]->step, $step,
+is($confsteps[0]->step, $step,
"'step' element of Parrot::Configure::Task struct identified");
is(ref($confsteps[0]->params), 'ARRAY',
"'params' element of Parrot::Configure::Task struct is array ref");
Modified: trunk/t/configure/12-verbose.t
==============================================================================
--- trunk/t/configure/12-verbose.t (original)
+++ trunk/t/configure/12-verbose.t Sun May 6 11:26:50 2007
@@ -47,7 +47,7 @@
$nontaskcount++ unless $k->isa("Parrot::Configure::Task");
}
is($nontaskcount, 0, "Each step is a Parrot::Configure::Task object");
-is($confsteps[0]->step, $step,
+is($confsteps[0]->step, $step,
"'step' element of Parrot::Configure::Task struct identified");
is(ref($confsteps[0]->params), 'ARRAY',
"'params' element of Parrot::Configure::Task struct is array ref");
Modified: trunk/t/configure/13-die.t
==============================================================================
--- trunk/t/configure/13-die.t (original)
+++ trunk/t/configure/13-die.t Sun May 6 11:26:50 2007
@@ -47,7 +47,7 @@
$nontaskcount++ unless $k->isa("Parrot::Configure::Task");
}
is($nontaskcount, 0, "Each step is a Parrot::Configure::Task object");
-is($confsteps[0]->step, $step,
+is($confsteps[0]->step, $step,
"'step' element of Parrot::Configure::Task struct identified");
is(ref($confsteps[0]->params), 'ARRAY',
"'params' element of Parrot::Configure::Task struct is array ref");
Modified: trunk/t/configure/14-params.t
==============================================================================
--- trunk/t/configure/14-params.t (original)
+++ trunk/t/configure/14-params.t Sun May 6 11:26:50 2007
@@ -50,7 +50,7 @@
$nontaskcount++ unless $k->isa("Parrot::Configure::Task");
}
is($nontaskcount, 0, "Each step is a Parrot::Configure::Task object");
-is($confsteps[0]->step, $step,
+is($confsteps[0]->step, $step,
"'step' element of Parrot::Configure::Task struct identified");
is(ref($confsteps[0]->params), 'ARRAY',
"'params' element of Parrot::Configure::Task struct is array ref");
Modified: trunk/t/configure/15-no_return.t
==============================================================================
--- trunk/t/configure/15-no_return.t (original)
+++ trunk/t/configure/15-no_return.t Sun May 6 11:26:50 2007
@@ -47,7 +47,7 @@
$nontaskcount++ unless $k->isa("Parrot::Configure::Task");
}
is($nontaskcount, 0, "Each step is a Parrot::Configure::Task object");
-is($confsteps[0]->step, $step,
+is($confsteps[0]->step, $step,
"'step' element of Parrot::Configure::Task struct identified");
is(ref($confsteps[0]->params), 'ARRAY',
"'params' element of Parrot::Configure::Task struct is array ref");
Modified: trunk/t/configure/16-no_return_but_result.t
==============================================================================
--- trunk/t/configure/16-no_return_but_result.t (original)
+++ trunk/t/configure/16-no_return_but_result.t Sun May 6 11:26:50 2007
@@ -47,7 +47,7 @@
$nontaskcount++ unless $k->isa("Parrot::Configure::Task");
}
is($nontaskcount, 0, "Each step is a Parrot::Configure::Task object");
-is($confsteps[0]->step, $step,
+is($confsteps[0]->step, $step,
"'step' element of Parrot::Configure::Task struct identified");
is(ref($confsteps[0]->params), 'ARRAY',
"'params' element of Parrot::Configure::Task struct is array ref");
Modified: trunk/t/configure/20-version.t
==============================================================================
--- trunk/t/configure/20-version.t (original)
+++ trunk/t/configure/20-version.t Sun May 6 11:26:50 2007
@@ -34,7 +34,7 @@
};
like($@, qr/Too few components to VERSION file contents/,
"Correctly detected too few components in version number");
-
+
ok(chdir $cwd, "Able to change back to directory after testing");
}
pass("Completed all tests in $0");
Modified: trunk/t/configure/21-version.t
==============================================================================
--- trunk/t/configure/21-version.t (original)
+++ trunk/t/configure/21-version.t Sun May 6 11:26:50 2007
@@ -34,7 +34,7 @@
};
like($@, qr/Too many components to VERSION file contents/,
"Correctly detected too many components in version number");
-
+
ok(chdir $cwd, "Able to change back to directory after testing");
}
pass("Completed all tests in $0");
Modified: trunk/t/configure/22-version.t
==============================================================================
--- trunk/t/configure/22-version.t (original)
+++ trunk/t/configure/22-version.t Sun May 6 11:26:50 2007
@@ -34,7 +34,7 @@
};
like($@, qr/Illegal version component: 'tomboy'/,
"Correctly detected non-numeric component in version number");
-
+
ok(chdir $cwd, "Able to change back to directory after testing");
}
Modified: trunk/t/configure/23-version.t
==============================================================================
--- trunk/t/configure/23-version.t (original)
+++ trunk/t/configure/23-version.t Sun May 6 11:26:50 2007
@@ -35,7 +35,7 @@
is($pv, q{0.4.11}, "Correct version number returned in scalar context");
is_deeply([EMAIL PROTECTED], [ 0, 4, 11 ],
"Correct version number returned in scalar context");
-
+
$pv = Parrot::BuildUtil::parrot_version();
@pv = Parrot::BuildUtil::parrot_version();
is($pv, q{0.4.11}, "Correct version number returned in scalar context");
Modified: trunk/t/configure/24-version.t
==============================================================================
--- trunk/t/configure/24-version.t (original)
+++ trunk/t/configure/24-version.t Sun May 6 11:26:50 2007
@@ -35,7 +35,7 @@
is_deeply([EMAIL PROTECTED], [ 0, 4, 11 ],
"Correct version number returned in scalar context");
is($pv, q{0.4.11}, "Correct version number returned in scalar context");
-
+
ok(chdir $cwd, "Able to change back to directory after testing");
}
Modified: trunk/t/postconfigure/02-revision_no_DEVELOPING.t
==============================================================================
--- trunk/t/postconfigure/02-revision_no_DEVELOPING.t (original)
+++ trunk/t/postconfigure/02-revision_no_DEVELOPING.t Sun May 6 11:26:50 2007
@@ -18,7 +18,7 @@
# Case 2: DEVELOPING's non-existence is faked; Parrot::Config available. #'
my $cwd = cwd();
my $reason =
- 'Either file DEVELOPING does not exist or configuration has not completed
(as evidenced by non-existence of Parrot::Config::Generated';
+ 'Either file DEVELOPING does not exist or configuration has not completed
(as evidenced by non-existence of Parrot::Config::Generated'
SKIP: {
skip $reason, 12 if (
