summaryrefslogtreecommitdiff
path: root/ACE/bin/fuzz.pl
diff options
context:
space:
mode:
authorJohnny Willemsen <jwillemsen@remedy.nl>2011-04-21 12:25:47 +0000
committerJohnny Willemsen <jwillemsen@remedy.nl>2011-04-21 12:25:47 +0000
commit5d44899ad38b5c4ca63cc6475d223b47009bb936 (patch)
tree392d512dc09e5d1ca6e372eb61bfb8906faa0fb8 /ACE/bin/fuzz.pl
parentc14eb42b0b665d4faa08dc6dae8cf11595848f89 (diff)
downloadATCD-5d44899ad38b5c4ca63cc6475d223b47009bb936.tar.gz
Thu Apr 21 12:25:13 UTC 2011 Johnny Willemsen <jwillemsen@remedy.nl>
* bin/fuzz.pl: Check *.conf files for an Id tag
Diffstat (limited to 'ACE/bin/fuzz.pl')
-rwxr-xr-xACE/bin/fuzz.pl9
1 files changed, 7 insertions, 2 deletions
diff --git a/ACE/bin/fuzz.pl b/ACE/bin/fuzz.pl
index c009be35f63..acb51359f75 100755
--- a/ACE/bin/fuzz.pl
+++ b/ACE/bin/fuzz.pl
@@ -53,6 +53,7 @@ use PerlACE::Run_Test;
@files_run_pl = ();
@files_generic = ();
@files_doxygen = ();
+@files_conf = ();
# To keep track of errors and warnings
$errors = 0;
@@ -157,6 +158,9 @@ sub store_file ($)
elsif ($name =~ /\.(doxygen)$/i) {
push @files_doxygen, ($name);
}
+ elsif ($name =~ /\.(conf)$/i) {
+ push @files_conf, ($name);
+ }
elsif ($name =~ /\.(pm|cmd|java|sh|txt|xml)$/i) {
push @files_generic, ($name);
}
@@ -215,8 +219,9 @@ sub check_for_inline_in_cpp ()
sub check_for_id_string ()
{
print "Running \$Id\$ string check\n";
- foreach $file (@files_cpp, @files_inl, @files_h, @files_mpc, @files_bor, @files_gnu,
- @files_html, @files_idl, @files_pl, @makefile_files, @files_cdp, @files_py) {
+ foreach $file (@files_cpp, @files_inl, @files_h, @files_mpc, @files_bor,
+ @files_gnu, @files_html, @files_idl, @files_pl,
+ @makefile_files, @files_cdp, @files_py, @files_conf) {
my $found = 0;
if (open (FILE, $file)) {
print "Looking at file $file\n" if $opt_d;