diff options
Diffstat (limited to 't/Support')
| -rw-r--r-- | t/Support/Files.pm | 9 | ||||
| -rw-r--r-- | t/Support/Systemexec.pm | 4 | ||||
| -rw-r--r-- | t/Support/Templates.pm | 8 |
3 files changed, 12 insertions, 9 deletions
diff --git a/t/Support/Files.pm b/t/Support/Files.pm index 9235b5c70..2396e5d28 100644 --- a/t/Support/Files.pm +++ b/t/Support/Files.pm @@ -1,3 +1,4 @@ +# -*- Mode: perl; indent-tabs-mode: nil -*- # # The contents of this file are subject to the Mozilla Public # License Version 1.1 (the "License"); you may not use this file @@ -43,7 +44,7 @@ sub isTestingFile { my ($file) = @_; my $exclude; foreach $exclude (@exclude_files) { - if ($file eq $exclude) { return undef; } # get rid of excluded files. + if ($file eq $exclude) { return undef; } # get rid of excluded files. } if ($file =~ /\.cgi$|\.pl$/) { @@ -57,9 +58,9 @@ sub isTestingFile { } foreach $currentfile (@files) { - if (isTestingFile($currentfile)) { - push(@testitems,$currentfile); - } + if (isTestingFile($currentfile)) { + push(@testitems,$currentfile); + } } diff --git a/t/Support/Systemexec.pm b/t/Support/Systemexec.pm index eee445c14..676ee02a4 100644 --- a/t/Support/Systemexec.pm +++ b/t/Support/Systemexec.pm @@ -1,4 +1,6 @@ -package Systemexec; +# -*- Mode: perl; indent-tabs-mode: nil -*- + +package Support::Systemexec; require Exporter; @ISA = qw(Exporter); @EXPORT = qw(system exec); diff --git a/t/Support/Templates.pm b/t/Support/Templates.pm index 4d19c2cca..6e5fb2904 100644 --- a/t/Support/Templates.pm +++ b/t/Support/Templates.pm @@ -35,11 +35,11 @@ foreach my $file (@files) { my @lines = <FILE>; close (FILE); foreach my $line (@lines) { - if ($line =~ m/template->process\(\"(.+?)\", .+?\)/) { + if ($line =~ m/template->process\(\"(.+?)\", .+?\)/) { $template = $1; - push (@testitems, $template) unless $t{$template}; - $t{$template} = 1; - } + push (@testitems, $template) unless $t{$template}; + $t{$template} = 1; + } } } |