diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/001compile.t | 2 | ||||
| -rw-r--r-- | t/002goodperl.t | 2 | ||||
| -rw-r--r-- | t/012throwables.t | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/t/001compile.t b/t/001compile.t index bfd065dc0..ad29975af 100644 --- a/t/001compile.t +++ b/t/001compile.t @@ -62,7 +62,7 @@ sub compile_file { ok(!$return_val, $file) or diag('--ERROR'); } -my @testitems = (@Support::Files::testitems, @Support::Files::test_files); +my @testitems = (@Support::Files::testitems, @Support::Files::test_files); my $file_features = map_files_to_features(); # Test the scripts by compiling them diff --git a/t/002goodperl.t b/t/002goodperl.t index c59692229..837849282 100644 --- a/t/002goodperl.t +++ b/t/002goodperl.t @@ -22,7 +22,7 @@ use Test::More tests => (scalar(@Support::Files::testitems) + scalar(@Support::Files::test_files)) * 6; -my @testitems = (@Support::Files::test_files, @Support::Files::testitems); +my @testitems = (@Support::Files::test_files, @Support::Files::testitems); my @require_taint = qw(email_in.pl importxml.pl mod_perl.pl whine.pl); foreach my $file (@testitems) { diff --git a/t/012throwables.t b/t/012throwables.t index 3cfa211dc..6b092d8c2 100644 --- a/t/012throwables.t +++ b/t/012throwables.t @@ -45,7 +45,7 @@ foreach my $module (@Support::Files::testitems) { foreach my $include_path (@include_paths) { foreach my $path (@{$actual_files{$include_path}}) { my $file = File::Spec->catfile($include_path, $path); - $file =~ s/\s.*$//; # nuke everything after the first space + $file =~ s/\s.*$//; # nuke everything after the first space $file =~ s|\\|/|g if ON_WINDOWS; # convert \ to / in path if on windows $test_templates{$file} = () if $file =~ m#global/(code|user)-error\.html\.tmpl#; |